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LABFL OOD000N00LINE  001790a1CC FX O/RSCOMMONSISFILE SePATCHES/PASCALIFILE LINFSLING PRINTS ENDe 


FILF!t PATCHES/PASCAL FRIMAY 03/02/79 03152 PM 


$# PATCH 1 FOR PASCAL.XVT!0 AONTAINS 10 CARDS. CORRFCT SPELLING & TABULATION 
$: PATCH TM CORRECT SPELLING Ix) SOME ERROR MESSAGES, CORRECT TABULATION OF CODE 
$1 OR COMMENTS, ANN TO CORRFCT THE CALL ON THE PROCEDURE TN GIVE A NEW PAGE. 


$1 wee NOTE THAT ERROR(71) 17S now NO LONGER USFD = SEF PATCH 813, 


$} 7S WAS USED ONCF, BUT INCORRECTLY» FRROR(C63) IS CALLED IN ITS PLACE. 

$1 wee NOTE THAT THE ALGOL cO0e FILE "PASCRUNY/S"DISK" HAS AFEN RENAMED 

$3 MPASCAL™/"PRELUNF™. IT TS NO LANGER REFERENCED NIRFCTLY IN THIS COMPILFR 
$: NTLS A OTT, IINTVERSTTY mF NATALs DURBAN. AUG = NOV 1977. 

$! 

RFGIN 3% NULL Zwee 4) REWRITE 50203000 
GENCYPUT™, 35593 Xnue 5) PAGE 50204000 
GENC*PPAGE% 555393 % §0208000 

RLOCK} Zeus COMPILE PROCEDURE BODY *** 890646000 

COMPSTATS ; %*ee COMPILE STATEMENT PART *** 80691000 
(* 4} ALFA CONSTANTS MAvy NOT BE LONGER THAN 7 CHARACTERS. ")5 91045000 
em 55 PRACENURF NESTING NEPTH + NO OF RFCORNDS IS TON GREAT,")» 91060000 
C" B87 ENN@NFeINPUT FNCIINTERED UNEXPECTEDLY.) » 9109400n 
(" OF TOM MANY FrLFS IN| USE so)» 91104000 


“eee Se ee a} 8 wie 


FND AF BS700 PASCAL COMPILFRe. Meg as eeu Abus ca SACs bal oe ni aliow scene O01 000 


$# PATCH 2 FOR PASCAL CONTATNS 4171 CARDS, 


$t PATCH TO MERGE NAG LANGMVHRS PPP1O TO PPP11 COSY PATCHES 
$1 WYTH NILS OTTES MODTFYEN PPP1O SOURCE. 
$: NAVIN A COOPER » HERINT#wATT UNIVERSITY» JANUARY 1978, 
$3 


FrLe caRD "SOURCE" €151023033 % SOURCF CONE FILE 
FILE LYNES 1 ¢151793 -%& PRINT FILF 

FrLe PASCALGOL nISK SFRTAL F20+600) C1510s30sSAVE 093 & COME FILE 
ARRAY PARAMTABs FORWPARAM1, _FORWPARAM2(OEMAYPARAMS 33 

FILE YRFFFILE MYSK SFRIAL £2022000) (153%30)3 

ALPHA ARRAY XBUFFE 93213 
BOOLFAN XINA3 


INTEGFR ARRAY SYMKINODOt6273 ZUSED YN ERROR RECOVERY. 


10035000 
10036000 
10037000 
10109000 
10137000 
10138500 
10138550 
10149000 


P FRRORIOOMESS ¢//4"100 TLLEGAL SAVE CONSTANT IN watenswenrnnw OPT T0N10188500 
. THE VALUF O07 71'S SURSTTTUTFO" 7" SO THIS ERROR HOES NOT INCREMENT TH10188600 


EF COMPTLATION FRRORS CNUNT. W//y 0% 
PACKENSY=61#> ASSERTSY=6243 


x 
% 
YF ERRNUMS400 
THEN NUMFRRSPENUIMPRRS Oty * ERROR NUMBFR 100 ALONE SHOULD NOT 
* PREVENT THE XALGOL COMPILATION BFING 
* ZIPPED AS THE VALUE 7 IS SUBSTITUTED 
* FOR A BAN SAVE CONSTANT IN AN "SS 
* OPTYON, 
TCINITIALSMTODLE,SINTTIAL 3 
"AOOREAN™s "SREANLNYs "SORESET%, "GUNPACK"s *SOWRITE, 
"6Q0IZXL" AN 
TF MECL THEN AX ts w AX} 
ABSCAL23) LEQ ARSCRP2193 
% 


10188700 
10211000 
20181500 
20181550 
20181600 
20181650 
20181700 
20181750 
20181800 
20181850 
20181900 
20181950 
20308000 
20373000 
20373500 


20520000. 


20539000 
20541100 
20541150 
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BOOLFAN PROCEDURE XRFFINPLUTOCA)® 


ARRAY ArO}?3 


BFGIN 


x 


LARBFL FNF3 
INTEGER 13 


RFADCXRFFFYLEs 35XRUFF (#1) CeOF TS 

FOR T'z0sie2 ON 

ATT] t= XRUFFETI3 : 

YF FALSE THEN FOF! REGTIN 
CLOeF CXREFFILEsRELFASE)3 
YING #2 TRUES 

a _ ENDS 

YRFFINPUT t= XINBS 


END nF XREFINPUTS 


AQ t= =423 


BOOLFAN LPARFOUND»s SAVFXREFNPTS 


dR VE VO ae FE ve DO 2G FE Ve De 2E dO 2@ 2e 20 78 


SAVEXREFOPT t= XREFOPTIONS  XREFOPTION t= FALSES 
IF SAVFXRFEFOPT THFN NEWXREF (CCURNAMES ,CURNAME?, THISLEVEL, 
FALSF)3 
YRFEFOPTTON #2 SAVFXRFF APTS 
ASSERT 62 , ASSERTSY INITIAL 
IF CURNAMF1="<aSSERT® THEN ASSERTSY ELSE 


FND% 


THE FOLLOWING LINES DFende ANY OCCURRENCE OF THE “"S* OPTION AND 
SETS THE GLOBAL INTFGFR VARIABLE "SAVEFACTOR”Y WHICH CONTROLS THE 

TYPF OF COMPY| ATION INTTTATEn BY THE ZIP, THERE ARE THREE LEGAL FORMS 
OF THE "S* OPTION AS FOLIAWSe= 


"Se" WILL GTVF NOM ZrP TE. PASCAL SYNTAX CHECK ONLY 
"S+" WILL GIVE A ZIp FOR COMPILF ANN GO 
"S22" WILL GIVE A Z¥p FOR COMPILE TO LIBRARY 
WHERF 92 1S THe TWO DIGIT DECIMAL SAVE 
CONSTANT GIVEN THE O8JECT CONE FILE 
NR. TF THE SAVe CONSTANT IS To BE 
LFSS THAN 70 THE FIRST DIGIT 
MUST RF INCLUDED TE. A "OM, 


ELSE . 
IF CXs"S" THEN 
BFGIN . 
IF C=a"e" THEN SAVEFACTORi==1 ELSE 
IF Ca"4" THEN SAVEFACTOR#= 0 FLSF 
TF € LFQ 9 THeN 
BEGIN sh ol 
SAVEFACTOn t= 10 x C3 |  NFXTCHARS 
SAVFFACTO® t= SAVEFACTOR + C3 
TF € GTR «© THEN ERROR €100)3 
END 
ELSF 
BEGIN ee 
—  -FRRARE1O083 


20541200 
20541250 
20541300 
20541350 
20541400 
20541480 
20541500 
20541550 
20541600 
20541650 
20541700 
20541780 
20541800 
20541850 
20541900 
20541950 
20541940 
20570000 
20842000 
20847500 
20861500 
20861550 
20868500 
30075500 
30165500 
30280000 
30280028 
30280050 
30280078 
30280100 
30280125 
30280150 
30280178 
30280200 
30280295 
30280250 
30280275 
30280300 
30280395 
30280380 
30280375 
30280400 
30280425 
30280450 
302860475 
30280500 
30280525 
30280850 
30280575 
30280600 
30280625 
30280650 
30280675 
30280700 
30280720 
302807435 
30280780 
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SAVEFACTNIn ts 73 30280765 
ENDS 30280780 
EAN 30280800 
4 30280895 
¥ 30280880 
% 30280875 
INTFGFR EXPRLEVEL s TXsFYPINVARCHTS & 40018000 
ANNLEAN INRRACKETs,INRECARD, SIMPLEVARS 40087000 
SIMPLEVAR te FALSF3 40099000 
CURTYPE ts THISTIN.TYPES eYMPLEVAR t= TRUE3 40104000 
SYMPLEVAR te FALSES ~ 40109000 
EXPTNVARCNT EME XP INV ARCNT+13% 40120500 
EXPTNVARCNT # SEXPINUARCNT 913% 40121800 
STMPLEVARTARLE tx STMPLFVARS 40199500 
TF FYPENVARCNT#0 THEN WRYTEEXPRS % 40751000 — 
LAREL FFH3 §0201500 
%e%* 6) OPEN &@ CLOSF CINPUT) FOR 50204500 
% CUMULATIVE FREQUENCY COUNTS0204580 
REGIN . . 50208100 
GENCMOQIZYL 56293 50208200 
TNSYMROL 3 50208300 
G60 TN EFHS 2% 50208400 
FND3 50208500 
FEH: 50219500 
FYPRLEVEL te 13 60346500 
IF THISINLINDCLASSaVAB OR 60354000 
. THISIN. INC! ASSaCOnsST AND ROOLEANCTHISID. FORMAL ) THEN 60354500 
FYPRLEVEL te 03 60383500 
PROCFNURE ASSERTSTATS 60391100 
BFGIN 60391200 
GENCIE NOTE 75493 60391400 
INSYMBNL3? BOOLEXYPRS — 60391500 
GENC™) THEN s 75293 GFNCMOLINERR (e791 93 GENC "7 os, 2,6)3 60391600 
GFNINTOCCARDCNT)$ GENC™ aM oto 7 D3 603914700 
END me ASSFRITSTATS 60391800 
IF CURNAMF 4 me "600JZyL" THEN FILFHANDLING(46) ELSE 60443500 
YF CURSY@ASSERTSY THEN aSSeRTSTAT FLSE 60457500 
TF PARAM THEN RENCHO"s197) ELSE BEGIN 80129000 
GENC*O8%s2.6)3 80129100 
GENINTCRECSIZE#1)3 80129200 
7 are ENN 80129300 
FORWPARAMIFNUMPARAMS) $= CURNAMEY3 80177500 
FORWPARAM?°NUMPARAUS? t= CURNAME2$ 80177600 
YNTFGER INDFX» CTYPFs NUMFARWARDS+ To TXs 23 680403000 
ALPHA 733 80403500 
LARFL LI13 ¥& 80447010 
LAREL LI23 & 80496010 
LABEL LL33 & 80542010 
IF CURLFVEL GEO MAYTAR, FS THEN ERROR(101) ELSE 80543500 
BLOCKTABFCURLFVEL 443 t= NUMBLOCKS t= NUMBLOCKS # 13 80543600. 
NAMETAR3ECURL EVE! »THISINDEXJ,FORWARDDEF t= 03 80553000 
T t= NAMETARSPCUBLEVEL*s THISINDEXT. INFOS 80554500 
Tx t= Ti+ PARAMTARCTI3 80554600 
FOR YtxTe4 STEP + UNTIL TX DO 80554700 
NFWNAMECFARWPARAMICT J»FORWPARAM2PT JsCURLFVEL+1)3 80554800 
REPLACE POINTFRENAMETABICCURLEVEL +1541) BY 0 80637800 
FOR MAXNAMFSi4 WORDS} 80637600 
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TF CURLEVFL GFO | ASTeFC THEN ERROR(101)3 & 80643000 

% : 90014100 
ae . 90014200 
SAVEF ACTORI=03% * MFFAULT ZYo IS COMPILE aND GO UNLESS 90014300 
¥ * CHANGEN RY THE USE OF THE *S" OPTION 90014400 
x 90014500 
x 90014600 
z . 90042100 
¥ THE FOLLOWING LINES ANA A "oO" ONTO THE FRONT OF THE PROGRAM NAME 0R90042200 
¥ THF FYRST SIX CHARACTERS THEeFOF IF IT TS LONGER THAN SIX CHARACTERS 90042300 
X THUS GIVING THE NAMF MF THE vALGOL ORJECT CONE FILE PRODUCED. 90042400 
% yas ie 90042500 
PROGNAME ta CURNAMFY.° 3583433 PROGNAMELFENGTH fm MINC6,CURLENGTH) 41390042600 

% 90042700 
x ‘ 90042800 
BFGINY 90090400 
WRITECLINE »sNQFRRORSISY 90090500 

TF ERRELOOI¥ 90090600 

THEN WRITE FLING sFRRORIOOMFSS)3% 90090700 

TF SAVEFACTOR2O THENY ea Z7YP ITS REQUIRED 90090800 
SvOINT 90111000 
ENDg 90129500 
(M100 YLLFGAL SAVF CONSTANT IN "HMMHoHHMMH OPTION, THE VALUE O07 1891106500 
SUBSTITUTERN/" SQ THTS FRRAR HOES NOT INCREMENT THE COMPILATION ERRO91106600 
RS COUNT.) 5% 91106700 
"701 PROCEDURES/FUNCTIONS NESTED TOO DEEPLY)» 91106800 
RFWINDCOXREFFILE)3 92003500 
SORTCPRINTXREF sXRFF INPUT» 0. XREFMAX » XREF COMPARE» 391000 6000)3 92005000 


s# PaTcH 300 FOR PaScaL.XV?.0 RONTAINS 5 CARNS. PRT CFLLS 25 TO 30 

S$: THIS PATCH cmRRECTS THF NOCuMENTATION FOR THE COMPILFRS PRY CELLS 25 TO 27 

$: (NOT 21 TO 23), FURTHERMNRE. IT USES PRT CrLL 30 FOR THe CARD COUNT CIN PLACE 
$1 NF 27) TO BF CONSISTANT wITu THE OTHER SYSTEM COMPILFRS. PRT CFLL 27 IS USED 
$1: FAR THE PAGE COUNT FORMFeLY AT SEQUENCE 10134000, 


$: NTLS A OTTEs UNTVERSTTY mF NATAL» DURBAN, AUG = NOV 1977, 

$? 

INTEGER NUMERRS, | x eR+2ct NUMBER OF ERRARS IN PROGRAM. 10029000 
SAVEF ACTOR» % AR+2n1 SAVEFACTOR FOR CONE FILE. 10030000 
PAGECNT, % AR+271 NUMBER OF PAGFS PRINTEN. 10033800 

_. CARDENTS % ®p+3nt NUMBER OF CARNS READ, 10034000 
INTEGFR LINFCNTs FRRINX$ | % PAGECNT @ PRT+97 10134000 


$# PATCH 501 FoR PASCAL.XVT._0 -ONTAINS 3 CARNS. “PRT25" FAR USER@S PASCAL PROG. 
$: THYS PATCH TNCORPORATES THE PRE= DEFINED IMFNTIFIER "PRY?5”™ LOCATED 

$1 aT PRY CELL 95 aS PEFR NNCUMENTATION, CTHE MOCUMENTATION MUST AF 

$1 AMFNDED TO MFLETE PRT26 AND PRT27 FROM THE PRE@DEFINED TOENTIFIFR LIST.) 

$1 #* NOTE THAT FILE PaSCAl /PeFLUDE MUST BE UPDATED FOR “PRTOS" - 

$1 THF VARTABLFE “PRTO5" May RE SET BY THE @ COMMON = N CONTROL CARD. 


$1 NTLS A OTTF, UNTVERSTTY nF NATAL» DURBAN. AUG = NOV 1977, 

$3 
NF WNAMFCMSOPRTO5" 50, 033 Kane MPRTIASY ean 20369100 
TRISINTTYPFS 13, TNCLASS $a ARS % GLOBAL INTEGER VARIABLE 20369200 
NAMFTAR3°0, eTHISYNNFY) is Ta3 20369300 


$# PATCH 5N2 FAR PASCAL.XVTI. 0 mONTAINS 3 CARNS. LINE COUNT WHEN NEBUGGING 
$: TM CORRECT THE LYNE COUNT WOFN THE DEBUGGING OPTION TO LIST THE ALGOL 
$: Cnnf GENERATED ts Sr C#sD+ #)s OTHERWISE LINES PER PAGE GOES WRONG. 


$: NYLS A OTTF, UNTVFRSITY mF NATAL» DURBAN. AUG # NOV 1977, 
$3 
OFFINE LINESPERPAGF = 40 #, 10038000 
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TF PUMPOPTION THEN RFGIN TF CLINECNTSsLINECNT+14 921 TNESPERPAGE 20149000 
THEN HEADINGS WRITECL INES 1OsALGOLCARNE*))  FNDS 20149100 

PATCH 503 FOR PASCAL.XVT.O FONTAINS 9 CARDS. INTEGFR TO REAL FOR TYPETABL 
WHEN MORE THAN 63 FNTRIFS WeRF ENTERED IN THE "TYPETAB®" ARRAYS,» THE 
PASCAL COMPTIER WAS MISeNNTYNUED DUF TO INTFGER OVERFLOWs WHICH COULD OCCUR 
IN A NUMBER AF PROCFNURFS Ac A RESULT OF ASSIGNING TN AN INTEGER AN ARRAY 
ELFMENT WHOSE FYPONFNT FYELN WAS NOT ZERO. THE FIELN "ARRTYPE" IS 

f43310) AND HAS THF 4 HTGH mRDER BITS IN THE EXPONENT FYELD. THIS PATCH 
AI TERS THE MFCLARATIONS AF ALL IDENTIFIERS TO WHICH *TYPETABI" MAY BE 
ASSTGNFEN FROM INTFGER TN REat TO CORRECT THIS ERROR. 


NTLS A OTTEs  UNTVERSTTY AF NATAL» DURBAN. AUG = NOV 1977, 

‘TNTEGER I7$ REAL TS 50225000 
TNTFGER IT$ REAL TB 50285000 
TNTEGER CASFTYPFs ANNReMAXARNRs INDEXSCTYPE Ss TX#SXs T3sLLIMsULIMsT3 70244000 
RFAL Tt» CVALS3 70246000 
INTEGER LEVFL1000» TYPs NAw» NAMTABs I» J» RECSIZES 80020000 
ALPHA Ti» FNAME} 80022000 
INTEGER FYRSTPARAMs CURKINns Pile PX» ps T33 REAL TS 80148000 
INTEGER INNEXs CTYPE, NUMFORWARDS» T3s TxXs I3 80403000 
REAL Ts CVAL3 80404000 


PATCH 504 FrrR PASCAL.XVT.O rONTAINS 23 CARDS. IMPLFMENT FORWARN DECLARATIONS 
FORWARD MECLARATTONS OF PROFFDURES FNDEN IN CHAOS DUF TO THE PARAMETERS AND 
THFTR TYPES NOT BFING KFPTs RESULTING IN GLOBALS BETNG REFERENCED WHERE 
PNSSIBLFs ANN FARWARN DFCLAPATIONS OF FUNCTTONS DID NOT WORK AT ALLe 

THE PROBLEM WAS THAT THE INEORMATION ON THE PARAMETERS WAS BEING STORED 

TN THE "NAME TABe® RAWS FAR THE CURRENT LEVEL» WHICH WERF BEYNG SET TO ZERO 

ON FXIT FROM PROCFNUPRE R} OCS AY THAT LEVEL THEREAFTER, 

THTS PATCH CORRECTS THE FRRAR BY MARKING THF ENTRIES FOR PARAMETERS OF 
FORWARD PROCEDURES AND FUNCTTONS» SFTTING TO ZERO ONLY THOSE ELEMENTS WHICH 
ARF NOT SO MARKEN ON EXTT FefNM A BLOCKs ANN UNMARKING THE RELEVANT PARAMETERS 
WHEN THF PROCEDURE OR FUNCTSON TS DEFINED. THE MARKING OF THE PARAMETERS 


TS MONE IN SUCH A WAY THAT rTHE SAME IDENTIFTER NAME MAY BE USED AT THE SAME 


LFVFL WITHOUT SYNTAX ERRAR 5 TO REPORT THAT THE TDENTIFTER TS ALREADY DEFINED 
THE UNMARKING REPLACES THE WMENTIFTER NAME TN "NAMETABe* TO ALLOW FOR THE 
SAMF NAMF OR ONF THAT HASHFe TO THE SAME PLACE TO HAVE REEN USEN PREVIOUSLY 
AND NOW DELETED, 


NTLS A OTTEs  wUNTVERSTTY ne NATAL» DURBAN. AUG = NOV 1977, 
TF FOUND ANN THISTD eI NCLASS2FUNC THEN 80548000 
NAME TAR3CCURLEVE! »THISINDEX).« FORWARDDEF $203 80553000 
CTHISIN. TDC] ASeaF UNC AND NOT FUN) THEN ERROR(4393 80555100 
TXIS(CTISTHTISTNINFOX+PARAMTABCTI$ % UNMARK FORWARD PARMS 80556000 
FOR Tr=s7T44 STeP ¢ UNTIL TX DO % TO ALLOW REFERENCE 80557000 
RFGIN T31ZPARAMTABLIN« PARAMNAME $ 80558000 
CURNAMF{ tmARSCAIAMETABS CCURLEVFL 4157333 80559000 
CURNAMF ate NAME TABOTCURLEVFL4+15T333 80560000 
NAMETARIPCURLEVEL Sis T3I9803 80561000 
NEWNAMF (CURNAMe 1 »sCURNAME2 sCURLFVEL #1 93 80562000 
IF T3¢THISTNOEY THEN BEGIN . 80563000 
PARAMTARFI] PARAMNAME 8=THISTNOEX3 80364000 
NAMETAR3PCUPLEVEL 41s THISINNEX) ta 80565000 
NAME TARSPCUPLEVEL+15T333 80365010 
FND ENDS & OF UnMARKING FORWARD PARAMETERS, 80566000 
TXEECTIMNAMFTARSTCURLFVEL» INDEX] « INFO )+PARAMTAB(CTI3 80636100 
FOR T2141 STFP 1 UNTTL TX DO % MARK FORWARD PARAMETERS 80636200 


NAMETABSCCURL PVE! +1 sPARAMTABET) « PARAMNAME),C4684) tm 13 80636210 
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TXOEsCuREUNC3 CURFUND talF FUN THEN TNDEX ELSE "173 80648000 
FOR YreO STFP 1 UNTTY MAXNAMES DO % LEAVE FORWARNA PARAMETERS 80647000 
YF NAMETABICCURLEVELs 13>0 THEN NAMETABLCCURLFVELsII)22#03 80648000 
CURLEVEL :=CURLEVFI *12 CURFUNC ¢aTX3 80649000 
FAR ItmLaSTREC Ser S| UNTIL TOPREc#1 00 & cLEAR RECORNA DECS 80693000 
PATCH 505 For PASCAL. yVT. 20 CONTAINS 9 CARDS. CHECK FOR HASH TABLE FULL 
WHEN THERE ARE “MAXNAMFS* InFNTIFIERS AT ONE LEVEL» THE “NAMETARe” ROWS 
BFCOME FULL AND THIS USFN Ta PUT THE COMPILER INTO AN INFINITE | OOPs 
EYTHER TN "NEWNAMFY OR WSCFAPCHTAB”, THIS PATCH INSERTS TEST FOR WRAP AROUND 


$! LFAMING BACK TO THF HASHFD STARTING POINTs FOR WHICH IT GIVES SYNTAX ERROR 
$: 4M, TOO MANY IDFNTIFTFERS DEPLAREDe 
$: NTLS A OTs UNTVERSTTY mp NATAL» QURBAN. AUG = NOV 1977, 
$i: 
NFFINE HASH¢(HASH1) ©& ENTTFRECUASHL) MOD MAXNAMES) #3 20202000 
BFGTN: ALPHA TNAMFS INTFGFR WoAPAROQUNDS 20209000 
WRAPAROUND te THTSTNOFX:sHASHCCURNAME 1 93 20210000 
IF THISTNOFX=WRAPARNUNR THEN TNAMES#O3 % TABLE IS FULL 20216100 
ALPHA TNAMF$ INTFGFR WRAPAROUNDS 20237100 
WRAPAROUNNtETHISTNNF YS SHASHCNAMFS D5 20238000 
IF THISTNDFX#WRAPARMUNN THEN % TABLE AT THIS LEVFL IS FULL 20244100 
BEGIN ERRARC4O)S NAMFIS@TNAMES NAMF OS 2NAMETAR2CTABs THISTNDEX) 20244200 
END} 20244300 
$# PATCH 506 FOR PASCAL.XVT. O FONTAINS 2 CARDS. RESERVED WORD ENDING AT CC 80 
$: TF a RESERVER WORD FNOFN AT_CARD COLUMN 79 AR 8O AND IF THE *BOLDFACE* FOR 
$1 RESFRVEN WORNS OPTION IS SFy C*#SR+ *#)s AN INVALID INDEX OCCURRED IN THE 
$: SCANNER "TNSYMAAL", THE PRARLEM Is CURFD BY CORRECTLY COMPUTING THE STARTING 
$: AND ENDING PRINT OF THF RESeRVED WORDS. ; 
$: NTIS A OTTF, UNTVERSTTY mF NATAL» DURBAN. AUG = NAV 1977, 
$s 
BEGIN T4 t# CARNLENGTHeCHARCNT=CURLENGTH®13 30178000 
FOR CLIRLENGTH#REAL CCHARCNT=O) 3 30181000 
$# PATCH 5Q7 FOR PASCAL.XVT.O rONTAINS 5 CARNS. “VARTABLF’s "SIMPLEVARIABLE® 
$1 TN PROCFOURE "VARTARLE", "SeMPLEVARTABLE™ 7S SET TRUF TF A SUBSCRIPT IS 
$: SYMPLE» RESULTING YN ALANL AONE BEING WRITTEN PREMATURELY DURING RECURSIVE 
$t CALLS ON PROCEDURF “FXPRESSYON'»s WHICH IN SOME CASES LEAD TO ALGOL SYNTAX 
$t ERRORS. SINCE WRITING THE ALGOL COME ¥S NEFPENDANT ON “"FXPRLEVEL™ BEING ZEROs 
$: THTS PATCH RUMPS TTS VALUE RIOR TO ANALYSING THE SUBSCRIPT» ANN SETS 


$¥ 
$1 
$1 
$: 
$1 
$1 


$# 


$i 


$1 
$3 
$1 


"SYTMPLEVARTARLE”™ FALSF AFTEQWARDS« 


NTLS A OTTF, UNTVERSTTY mF NATAL» OURBAN. AUG = NOV 1977, 
EXPRLEVEL t@ EYPRLEVEL4+13 % DO NOT “WRITEFXPR® YET 40120900 
EXPRLEVEL t= FYPRLEVEL*13 40121100 
/ STMPLEVARTABLE t& eALSE3 % RECURSION ON “VARTABLE" 60121200 
FXPRLEVFL t= FXPRLEVEL413 60063900 
FXPRLEVFL $= EXPelAeVel@ 13 60065100 


PATCH 509 FOR PASCAL.XVT.O AONTAINS 1 CARD. "CONCAT® A FUNCTION OF ANY TYPE 
THE INTRINSIC FUNCTION meONeaT™ COULD ONLY RE ASSIGNFD TO A VARTABLE DECLARED 


“Rea” TO AVOTA TYPF CONFLI@T SYNTAX ERRORS. THIS PATCH MAKES "CONCAT" 


TYPFLESS,. 


NTLS A OTT, UNTVERSTTY nF NATAL» DURBAN. AUG » NOV 1977, 
CURTYPE te ne) AL FATYPE OR REAL TYPE 50050000 
PATCH 541 FMR PASCAL.XVT, "0 rPONTAINS 7 CARDS. ALLOW UP®#LEVFL ANDRESSING 


TO ALLOW UP*# EVFL TNENTIFIE® REFERENCES. FORMERLY» REFFRENCES TO GLOBAL 
TRENTIFTERS WHICH WFRE NNT #N THE NUTER BLOCK WERE FLAGGED BY SYNTAX ERROR 
5, UP@LEVEL ADDRESSTNG NAT pMPLEMENTED NUF TO HARDWARE RESTRICTION, 
ALTHOUGH THE RESTRICTION EXySTS IN EXTENDFM ALGOL»s IT TS NOT TRUE THAT THE 


i 


aa 


$# 
$3 


RESTRICTION YS MUF Th HARDWARE» FOR UP*LEVEL ADDRESSING IS ALLOWED IN 

COMPATIBLE ALGOL WITH THE CAUTION THAT Tr 1S INEFFICTENT (THE IMPLEMENTATION 

1S SIMILAR TN AN ARRAY FLEMENT REFERENCE). 

THTS PATCH PFRMITTS SUCH BLORAL REFERENCES» EXCEPT 

C1) THAT YF THE CONTROL VARTABLE OF A FOR STATEMENT 7S NOT LOCAL OR IN THE 
OUTER BLACK ¢PRT) A WARNING IS ISSUED ¢TN THE FORM OF A SYNTAX ERRORS 
BUT THE FRROR COUNT 7S NOT INCREMENTED)» AND 

(>) THE RESTRICTION TS StTIur APPLIEA TO FUNCTION NAMES, THE MESSAGE FOR 


SYNTAX FRROR TS AMFNNED. ACCORDINGLY. : 
NTLS A OTTEs UNTVERSTTY mF NATAL» DURBAN. AUG » NOV 1977. 
TF FRRNUMEO THEN FRRNUMI ABS CERRNUM) ELSF 20180900 
STF THISLFVFI>1 AND THISLEVeL<cURLEVEL THEN ERRORS3 40103000 
STF THISLEVEL D4 Ann THISLEVELZCURLEVEL THEN FRRORSS 50244000 
IF THTSLEVEI >4 AND THISLEVELZCURLEVEL THEN ERRORSS 80306000 
IF THIS) EVEL CURLFVEL@4 OR THYSINDEXZCURFUNC THEN FRRORCS)$ 60091000 
IF THISLFVEL>1 ANN TUTSLEVEL<CURLEVEL THEN ERROR(*5)3 60276000 
e* § FUNCTION NAME NOT ACCESSIBLE AT THIS LEVEL.")» 91009000 
PATCH 512 FOR PaSCAL.XVI. "0 PONTAINS 24 CARDSe IMPLEMENT STRUCTURED ASSIGNMENT 


TN ALLOW STRICTURFD ASSTGNMENT, FORMERLY» AN ASSIGNMENT OF A STRUCTURE 

WAS NOT IMPLFMENTENs EG As At RECORD 35. FNOS A tz BS: 

THTS PATCH ATTEMPTS TO TMPLEMENT ASSIGNMENT OF STRUCTURFS OF ANY KINDs 

BUT TT WOULD FATL TF THF STeUCTURE WERE TRANSLATED INTO A MULTI=DIMENSTONAL 
ALGOL ARRAY. THTS IMPLEMENTATION DOES WORK FOR ARRAYS» RECORNSs 
SUBSTRUCTURES» AND FOR STRUATURES ALLOCATEN IN THE HFAP. 

THTS PATCH NFEDS PATCH 507 ¥N ORDER TO SUCCEED, 

FOR THIS IMPLEMFNTATTONs THe FOLLOWING DEFINE IS REQUIRFD IN THE FILE 
PASCAL/PRELUNE! PFF INE ASSeGNCDESTs SOURCEs LENGTH) = REPLACE POINTERCOEST) 
Ry POINTER(¢SNURCE) FAR | ENGTH WORDS #3 


NTLS A OTTER,  UNTVERSITY mF NATAL» DURBAN. AUG » NOV 1977, 
ae ahs os —— ’ 60020000 
PRNCEDURE WRITFSFYPRI Kane FIX STRUCTURF FOR ASSTGNMENT 60021000 
RFGIN 5. Re USED ONLY IN ASSIGNMENT OF STRUCTURES 60022000 
TF INSTDFRRACKFTS THEN +F SYMTARENUMSYMS] = "100000," 60023000 
THEN SYMTABENUMSYMS) o@ "s O 3” ELSE PUTSYMEMI%)93 60024000 
WHILF NUMPOINTERS>O AN 60025000 
BFGIN NUMPOINTERS $2 NUMPOINTERS@13 . 60026000 
IF NUMSYMS44 > MAYSYMe THEN WRITEEXPRS 60027000 
REPLACF PNTNTFRESYMTARTNUMSYMS#+11) BY 60028000 
"OO=19NTVOO 1922.00 T MON0O 10221%3 60029000 
NUMSYMS t= NUMSYMS443 60030000 
ENDS x OF WHILE ~ ; 60031000 
_ WRITFEXPRS GENC "5% ‘tor 93 60032000 
FN WRITESFXPRE 60033000 
60034000 
ZERRAR(95)3 ¥% STRUCTURED ASSIGNMENT NOT IMPLEMENTED. 60063000 
GENCYASSYIGNE',7,993 wWwRITESEYPR3 60064000 
FXPRESSIONS WRITESEXPR} 60068000 
GENINTCTYPETABITI FFT TYPE JeSTZE)3 GENC™) 5 157)3 60066000 
TF TYPETABICLFFTTYPFY.STZEZTYPETABICCURTYPE).SIZF 60067000 
THEN FRRORCOS)3 60068000 
ENN} 60087000 
CHECKTYPES( LFFTTYPes -URTYPE 3 60088000 
(" 95 SI7E OF STRUCTURES IN ASSIGNMENT ARE NOT THE SAME."), 91102000 


PATCH 513 FOR PASCAL.XV?I. °0 rONTAINS 16 CARDS. FIX POINTERS VIA POINTERS 
TA CORRECT THE CONF GENFRATeN FOR CHAINED REFERENCES THROUGH THE HEAP» 


aes 


Bul ee Grom 


More 


A ioe on 


yy 
aes 


— > 


$: TF FOR POINTFRS TN PAINTERS: THE OFFSET FOR COMPONFNTS WITHIN RECORDS 


$: Was YNCNRRECTLY BEING ADNED, TN THE RECORD IN THE LEFTMOST REFERENCEs YE THE 
$: IYNNFRMOsTs TNSTFAN OF AT THe FYPECTED LEVEL. 

$1 FAR FXAMPLEs THF FOLLOWING 7WwO REFERENCES WOULD BOTH BE TRANSLATED TO 

$t THF SAMF ALGNL CONF FQUTVALENT TO HEAPCHEAPLID+IPART*+ICOMP))8 

$1 TNe.PARTR@LCOMP, TD@.PART.COMP@, 

$t WHEN THE FIRST SHHULN HAVE aFEys HEAPCHEAPCID+TPARTI*1 COMP). 

$t IN ADDITIONs THTS PATCH TMPANVES THE COMPILERS CODE FOR GENERATING THE 

$t "MFEM® ARRAY SUBSCRIPT. 

$t NTLS A OTT. UNIVERSTTY Or NATALs DURBAN. 1977"14°14 


$t 
TF NUMSYMS4#4 < MAXGYMS THEN 40175000 
NUMSYMS ft NuUMSYuS423 40480400 
; IF NUMPMINTERS > 0 % POINTER VIA PNINTFR 40180500 
THEN REGTN REPLACE POINTERCSYMTABLNUMSYMS411) BY 40180600 
*"ON=1INTVOO 1022200 T MONOD 10223"; 40180700 
NUMSYMS t2 NUMSYMS4a3 40180800 
END 40180900 
FLSE NUMPOTNTERE tx 13 40181000 
% INRRACKFT tm FALSF3. 40191400 
BEGIN NUMPOAINTFRS tex NuMPOINTERS=43 40193000 
TF NUMSYMS44q < MaXSYMS 40194000 
THEN BEGIN RePLice POINTERCSYMTABENUMSYMS#11) BY 40194100 
"00=4 NT y00_ 1022,00 YT MONON 102233 40194200 
NUMSYMS ¢@ wUMSYMS443 40194300 
END 40194400 


FLSE FRRMRC6393 x EXPRESSION IS TOO LONG FOR SYMTABr*) 40195000 
st PATCH 544 Fflp PASCAL.XVI.0 PONTAINS: 2 CARNS. PROCESS TIME FUNCTION FOR RUN 
$t PATCH TM CHANGE THF NAMF OF THE FUNCTION ON THE B5700 VERSION WHICH SUPPLIES 
$: THe PROeESS TIME USEH RY THe PASCAL PROGRAM ON THE fURRENT RUN FROM "eELAPSEN" 
$1 WHICH MPANS PLATFORM TIME, +O "CPUTIME"™ WHICH IS THE WIDELY ACCEPTED TERM 
$1 FAR THIS QUANTITY. : 
$: NTTS A OTTFs UNTVERSTTY AF NATAL® DURBAN. AUG # NOV 1977. 
$t 

NEWNAMPC’7CPUTIM®, "EF", 053 NAMETAR3COsTHISTNDEX J 82733 20390000 
YF CURNAMF 1 a"7CPUT YM" AND CURNAMFORa"E* THEN % "CPUTIME*” 40452000 
$# PATCH 516 FOR PASCAL.XV?. "0. CONTAINS 2 CARNS. CORRECT "NO LISTING” ERROR 
$e THIS PATCH CORRECTS AN FRROD WHEREBY IF LISTING WAS TURNED OFF 
S$: ANN PAGF THROW WAS TNVOKEDs A HEADING WAS PRINTED REGARDLESS. 
$1 Davin A CNOPFR, HERINT#=WATT UNTVERSTTY e500. JUNEs 197Be 
$: 
Te CX="L" THEN Te Cal THEN 30264000 
IP LTSTOPTION THEN HEADING ELSE 30264800 
$# PATCH 3437 FNR PASCAL .XVT.0. CONTAINS 2 CARD. 
$¢ THIS PATCH CORRECTS an FRRMe THAT CAUSED A FILE DECLARATION 
$* TN HAVE TTS NAMF STRING sPLeT OVER rwO LINFS IN THE GENERATED XALGOL. 
$: AISO CHANGES SYMTAR FORM 7YPE REAL TO TYPF ALPHA. 


St DAVIN A COOPERs HERINT#WAT? UNTVERSTTY.....JUNEs 1978. 


fe 


ALPHA ARRAY SYMTABFOEMAXSYMST3 % USED BY "FXPRESSION", 10144000 


YF ALGOLCNT LSS 1h THEN WRITEALGOLS | 80103000 
$# PATCH 51R FOR PASCAL.XV1T.0. CONTAINS 224 CARDS, 
$: THYS PATCH CHANGES THF WAY THAT MULTI@OIMENSION ARRAYS 
$1 REPRESENTING RECORNS ARF DEFLARED. PREVIOSLY THEY WRE DECLARED 
$; THE WRONG WAY RMIND FOR XALAOL« THIS PATCH SORTS THF DIMENSIONS 
$1 INTN ASCENDING ORNMFR FROM LeFT TO RIGHT ANN GENERATES APPROPRIATE 
$: DFFTNES AND CONF FOR HANALING THE ARRAYS, | 


i t if - = s 4 5 : i i r 5 i 
E : i i g : : 


ore Ge eee fee, Ree 


_—_— 


$t 


NFFINE | ae eis 
PERMSIIR = 0 #, MAYTMTALSUBSCRS = 10045 
ARRNAM = 1 #3 . 
ARRAY ARRSURPFRMTARTOL Lent MAXTOTALSUBSCRS J} 
TNTEGFR PASSPFRMTAR, MAVPERMTAR, REMEMAFRPOSNS 


BONLEAN STMPLEVARTABLF.s TNeTOEBRACKETS» INSTDEPARENSS 


TF INSINEPARENS ANT TYPETARICCURTYPE), eSTRUCT > 0 AND 
TYPETARICCURTYPE].FORM < FILES THFN 
PUTID CH» 1000xTHTISI EVeL+THISINDEXs5) 
FLSE 
PUTIDE™V"s 1O00xTHTS! FVeL+THISINDEXs5)3 
TINSIOFPARENS t= TRHES | 
INSIDFPARENS te# FALSE3 


BENING "HY, 100NxTUTSLEVEL4+THISINDEX#5)3 


BENING ™H™,100NxTUTSLEVEL+THISINNEX 95 )3 

voroT 
VATOT 
NrrINe 

LOWSUBS = 0 #, 

HYStinS =#£ 4 ty» 

NEXTSUBSm 2 #, 

MAXNMOFSURSCRIPTS e270 ts 

STOPPERSURTAR = 21 #3 
ARRAY ARRSUBSCRIPTRANGEL At2sO8SMAXNOOFSURSCRIPTS]3 
INTEGPR FYRSTRANGEs NEXTEREFENTRY» PASSSUBRANGEs PREVPASS» 

MPs POSNM., SURDIEFS ; 
TF ARRAYVAR THEN GENE™S"5157) ELSE ARRAYVAR t= TRUES 
TF NOT PARAM THEN 
RFGIN 
GENO DEFINE s 75293 
GENIDC™V"s LEVEL LOON+NAM95)3 

GENCE 1 773 - 
FNNS oe 
FYIRSTRANGF t= STOMPPERSIIBTABS NEXTFREEENTRY 82 03 
PNSNO te 13 a tee eae 
MP os 103 FIRSTDIM tx TRUE} 


nn 
RFGIN 
IF FIRSTOTM THEN FYRSTDIM t= FALSE FLSE 
RFGIN 
TF NOT PARAM THEN RENO "se "9 1073 
ENOS 


IF NOT PARAM THEN GENTOO" V"s CLEVELLOO0+NAM)XMP4POSNO, IF MP#10 


THEN 6 ELSE 793 PASNm te POSNO + 43 
YF PNSNO w= MP THEN MP tz MPx{03 
IF NEYXTFREEENTRY = STOPPERSUBTAB THEN 
BFGIN 
FRROR(O)3 
END 
EI SE 
RFGIN 


$1 STHART ANDERSON, COMPUTER SATENCE® HERIOT@WATT UNIVERSITY» JUNE. 5000197Be 


10156200 
10156300 
10156400 
10156500 
10156600 
40080000 
40080100 
40105000 
40105100 
40105200 
40105300 
40105400 
40105500 
40258100 
40259100 
50243000 
50243100 
50307000 
50307100 
80052000 
80064000 
80064005 
80064010 
80064015 
80064070 
80064028 
80064030 
80064035 
80064040 
80064048 


80064050 


80064055 
80064060 
80064068 
80064070 
80064078 
800640R0 
80064085 
80064090 
800640958 
80064100 
80064105 
80064110 
800641414 
80064112 
80064143 
80064118 
80064120 


80064125 


80064130 
80064135 
80064140 
80064145 
80064150 
80064155 


tee 


Wee UuLe, 


6 cae ce POFina, nels 


oo 


t 


ARRSUASCRIPTRANGEPLOWSUBS»NEXTFREEENTRY} te TYPE TAB2CTYP IS 
ARRSURSCRIPTRANGEPHISUBSsNEXTFRFEFNTRY] te TYPETAR3ETYPI3 
ENDS zs 
SURDIFF t= TYPFTAR3IC TYP) = TYPETAB2ETYPI3 
IF FIRSTRANGF = STNPPeRSUBTAR THEN 
BFGIN 
FIRSTRANGE t= NEXTFREEENTRYS 
NEYTFREFFNTRY os NEXTFREEENTRY + 13 
ARPSUASCRIPTRANGEFNEXT SUBS SF IRSTRANGE t= STOPPERSUBTABS 
Ean 
ELSE 
BEGIN 
PASSSURRANGF ts FyRSTRANGES 


80064160 
80064165 
80064170 
80064175 
80064180 
BO0641A5 
80064190 
80064198 
80064200 
80064205 
80064210 
80064215 
80064220 


PREVPASS t= STOPeFRSUBTABS NEXTFREEENTRY t sNEXTFREEENTRY +1 3 80064298 


WHILFSUARTFF > aRRSURSCRIPTRANGETHT SUBS +P ASSSURRANGE} 


~ARReUBSCRIPTRANGECLOWSUBS»PASSSUBRANGE}) AND 


CARRSIASPRIPTRANGECNEXTSUBSsPASSSUBRANGE? # 
STOPPERSUBTAB) 00 
BEGIN 
PRFVPASS += pASSSUBRANGFS | . 
 PASSSURRANGE #= ARRSUBSCRIPTRANGECNEXTSUBS» 


PASSSUBRANGE13 
ENDS 
TF PREVPASS = STrAPPFRSURTAB THEN 
BEGIN 


TF SURDIFF 2 ARRSUBSCRIPTRANGELCHISUBS» 
PASSSURRANGE] = 
ARRSUBSCRIPTRANGELLOWSURS» 
PASSSUBRANGE) THEN 
BEGIN 
ARRSURSCREPTRANGE (NEXTSURSsPASSSUBRANGE) to 
NEXTFREEENTRY = 33 | 
ARRSURSCRYPTRANGECNEXTSURS»NEXTFREFENTRY® 11 ta 
STOPPERSUATABS 
END 
FLSF 
BFGIN 
ARRSURSCRYPTRANGECNEXTSUBSsNEXTFREFENTRY@1) te 
ae FYRSTRANGF3 
FIRSTRANGe t= NEXTFREEENTRY@43 
_ END 
ENN 
ELSE 
BFGIN 


IF SURNTFE > ARRSUBSCRIPTRANGELCHISUBS,PASSSUBRANGE] © 


ARRSUBSCRIPTRANGECLOWSURS» PASSSUBRANGE } 
THEN 
BEGIN fee 
ARR SUR SCRIm TRANGECNEXTSUBS@PASSSUBRANGF] ft 
2 NEXTFREEENTRY ™ 13 
ARRSLIRSCRIPTRANGEENE XTSURS »sNE XTFREFENTRY@1) te 
STOPPERSUBTAB3 
END 
FLSF 
RFGIN 
ARRSUBSCRIDTRANGECNEXTSUBSsPREVPASS] ta 
NEXTFREEENTRY “43 


80064230 
80064235 
80064240 
80064245 
80064250 
80064258 
8006496 

80064265 
80064270 
800642975 
80064280 
80064285 
80064290 
80064295 
80064300 
80064305 
80064310 
80064315 
80064320 
80064325 
80064330 
80064335 
80064340 
80064348 
80064350 
80064355 
80064360 
80064365 
80064370 
80064375 
800643A0 
80064385 
80064390 
80064395 
80064400 
80064405 
80064410 
80064415 
80064490 
80064495 
80064430 
80064435 
80064440 


: H . \ : : : H 
i i i : : - : : : : i : : : 
; ! i : : 


tates koe 


Wa 


ie 


» @ 


— 


FENN 
TF 
RFGI 


FNM3 


ARRSURBSCRIPTRANGELNEXTSUBSsNEXTFREFENTRY@1) ta 
. PASSSUBRANGFS 
END 
ENN aa . : 
ENQSTYPt=Te T{.FORM # ARRAYS THEN T1.aRRTYPE FLSF REALTYPRS 
TH t= TYPFTARITTYPTS 
UNTIL T4AlSTRUCT 2 0 3 
NNT PARAM THEN 
N 
GENCE 12%, 9,693 7 
GENTDO"H" s LEVEL LOON+NAMS5 D3 
GENE™P si 5793 e 
PASSSURRANGF Ia FIRSTRANGES FIRSTDOIM tm TRUES 
WHILE PASSSURRANGF # STOPPERSUBTAB NO 
RFGIN : . 
IF FIRSTNIM THEN, FIRSTOIM t= FALSE ELSE GENC™s "515793 


GENIDOE"V"s CLFVFLINOO+NAMIXCIF PASSSUBRANGF>9 THEN 100 ELSE 
10)+PASSSUBRANGE+1 IF PASSSUBRANGE>9S THEN 7 ELSF 6)3 
PASSSUBRANGE t= ApPRSUBSCRIPTRANGES NEXT SUBS »sPASSSUBRANGES3 


END} : 
GENE™TES%, 35593 


PASSSUBRANGE t= FIRSTRANGES . . 
FIRSTMIM t= TRUFZ GENCARRAY%s 62393 GENTOC”H"™sLEVELLOOO+NAMSS D3 


GENE" sto? dr} 


WHILE PASSSUBRANGF #£ STOPEFRSUBTAR 00 


RFGT 


FNDS 
GFN 
tec 
RFGI 


N ww 28 

TF MAYPERMTAR LFA wAXTOTALSUBSCRS AND PARAM THEN 

BEGIN . Af iy ; 
ARRSUBPFRMTARPARRNAMsMAXPERMTABR) t2 

TF FIRSTOM THEN NAM ELSF 7143 

ARRSUBPFRMTARPFPERWSUB »s MAXPERMTAR J $2 PASSSUBRANGE3 
MAXYPFRMTAR t= MAXPFRMTAB + 13 

END 

FI SE 

BFGIN Oo ae 
TF MAYPEFRMTAB > MaXTOTALSUBSCRS THEN FRROR(O)3 

ENDS . ; 

IF FIRSTNTM THEN FIRSTDIM Sm FALSE FLSF GENC™ ps5 457)3 

GFNINTCARRSURSCRIPTRANGE FLOWSUBSsPASSSUBRANGE 193 

IF NOT PARAM THEN 

REGIN - 
GENCE, 47S e : 
GENINTCARRSURSCRIPTRANGETHISUBSsPASSSUBRANGEI)3 

ENDS . 

PASSSURRANGF t= ARRSURSCRIPTRANGELNE XTSUBSsPASSSURRANGE T$ 


"Is 1e7d3 


URLEVFI > 1 THEN 

N 

INTEGER NAMMF THING sDPFFS 

BOOLEAN FITRSTTIMFS 

GENC"REGING» 60393 ; 

IF MAYXPERMTAR > 0 THeN 

BEGIN, 
PASSPFRMTAR t= Of 


80064445 
80064450 
80064485 
80064460 
80064465 
80064470 
80064475 
80064480 
80064485 
80064490 
80064495 
80064800 
80064505 
80064510 
80064515 
80064820 
8006453 

80064535 
80064840 
80064545 
80064550 
80064855 
800645460 
80064865 
80064570 
80064575 
B00645A0 
80064585 


80064590 © 
80064593 


80064600 
80064605 
80064610 
80064615 
80064620 
80064625 
80064630 
80064640 
80064645 
80064650 


(80064655 


80064660 
80064668 
80064670 
80064675 
80064680 
80064685 
80064950 
80421000 
80421010 
80421020 
80421030 
80421040 
80421050 
80421060 
80421070 
80421080 


ro 
Ape) 


rer 


ne wet 


2 Fur 2 GPa, Wot 7 


rat 


—_—_— 


i 


on 

BFGIN 
REMFMRFRPOSN 4 PASSPERMTABS 
GENCY AEF ING» 757 )3 


NAMOFTHING t# ARRSUBPERMTARLARRNAMsPASSPFRMTABI 3 


GENIDE"V"s 1000xCURI EVEL #NAMOF THINGS 5)3 
GENC HE sie 73 
FIRSTTIME t= TRUES 
pn 
RFGTN 


80421090 
80421100 
80421110 
80421120 
80421130 
80421140 
80421150 
80421140 
80421170 
80421180 


TF FYRSTTyMe THEN FIRSTTYME tw FALSE FLSE GEN 25180421190 


971380421200 


NEF ta PASSPERMT AB*REMEMRERPOSN 414 3 . 80421210 

GENIDE VMs C1 OOM xCUIRLEVEL+NAMOF THING )x¢ TF DIFF>9 THEN 100 FLSE 80421220 
1OVHNTFE SC oF DIFF > 9 THEN 7 ELSE 6993 80421930 

PASSPFRMTAR t= PASSPERMTAB * 13 ENN 80421270 

UNTIL PASSPERMTAB = MAXPERMTAR OR 80421280 
ARRSLIBPeERMTABCARRNAMsSPASSPERMTABI ¥ 13 80421290 

GENCT IM 19793 80421300 

GENC "a", 15793 80421310 

GENTNE THY, 1NOOVCURLEVEL +NAMOF THING S53 80421320 

GENC™P. 99793 80421340 
PASSPFRMTAR t= REMEMBERPOSNS FIYRSTTIME t= TRUES 80421350 

on 80421360 

BEGIN a 80421370 

TF FIRSTTIwe THEN FIRSTTIME te FALSE FLSE GENC%s™s 80424380 

a 197)380421390 

NYFF tz ARPSUBPERMTABCPERMSUBs,PASSPFRMTABI 413 80421400 

GENTN EMV» 6 1000XCURLEVEL+NAMOF THING )XCTF DOIFF>9 THEN80421410 

190 eLSE 10)¢DIFF,CIF DIFF>9 THEN 7 ELSE 6))3 80421420 

PASSPERMTAR t® PASSPERMTAR 413 80421430 

ENN BO421440 

UNTTL PASSPERMTAB =a MAYXPERMTAR OR 80421480 
ARRSIIAPeRMTABLARRNAMsPASSPERMTAR J x "13 804214690 

GENCMTHS% 9,5) ¢ 80421470 

ENN , 80421480 

UNTIL PASSPERMTAnm = MAXPERMTABS 80421490 
MAYPERMTAB t2 03 80421800 

ENT 80421510 
FENN 80421520 
$ 80608000 
RFGIN 80608010 
BFGIN 80608020 
INTEGFR NAM» TI SCeATCHS 80608030 

NAM tm PARAMTARET4.(931033 80608040 

SCRATCH ts NAMET Ag 3CCURLEVEL +15NAMJ3 80608080 

SCRATCH t= SCRATCU.TYPE3 80608040 

Ty ts  TYPETAR YT FSCRATCHIS 80608070 

IF Ti.sTRucT # 0 AND TLeF ORM < FILES THEN 80608080 
GENTOCYH™, 1 A00LCCURLEVEL41 )+#NAM» 5) 80608090 

FLSE ; cs 80608100 

GENTNE yy, 1 N00~CCURLEVEL 41 +NAMs5 3 80608110 

ENDS 80608120 
MAYPERMTAR tc 03 90070100 
INSIOFPARFNS 2 FALSF3. 90070200 


$e PATCH 519 For PASCAL XVT. 70. CONTAINS 1 CARDS. INCREASE RUNTIME STACK. 


$1 


i ' i : i + ls i : : : & ib : 


ca 


" XALGOL STACK = 204R3 ETACK # 10243 ENN.™S & 


$# PATCH 600 FOR PASCAL. XvI. "0. CONTAINS 22 CARDS. 
$: PATCHES RECFYVEN FRNM D. 31 ANA MYHR AND TRANSPOSED FROM COSY FORMAT BY 
$: DAVTD A COMPeR, 


$1 


FFRRUARY 1978. 


TF CE) NEO SET OR RT NEO eMPTYSET) &% 


ANN % 


(F? NEQ SET OR LT NFO eMPTYSET) THEN & 
IFCF1 NFO POTATFRS AR oT NEQ NILTYPE) & 


AND &% 


CFO NFQ POTNTFRS AR 


RFGIN FRROR(63)3 & 


$ 
$ 


TF NAMTAB.IDCLASSSFUNC THEN GeNCTFUNCTN' » 752) % 
FLSF GENCYPROCEDU, 85193 % 


GENC™PREANEsA42253 WRITEEXPRS 


1T NEQ NYLTYPE) THEN & 


GENC eo %5197)3 % 


GENIDCMEMSETI FID S)S GENC™ sot e793 & 
te FaNUMFRIC THEN % 
RFGIN & 


GENO g7DE 
GENCE 551.7 )8 


END FLSF GENC'20.0%% 40493 % 
SFT vornr 
POP vornr 


GENINTCTYPETABCLCURTYPEI 93 % 
GENINTCTYPETABILCURTYPEI 93 & 


TF FOUND AND ¢THISTN. TDCLASS#eROC OR THISIN.INCLASSSFUNC) THEN 


s#P ATCH 


$1 EL EME 


$1 NR, THE RUN TIMF SYSTEM MUSt RE CHANGED ACCORDINGLY. cee. 


601 FOR PASCAL .XVT, Ne CANTAINS 147 CARNS. 
$1 PATCHES RECFYVEN FROM A, ST ANAMYHR AND TRANSPOSED FROM COSY FORMAT BY 
$: DaAvIN A CNOPFR, 
$s THYS PATCH MADIFTFES THE SET HANOLING ROUTINES TO ALLOW SETS OF 0,293 


NTS. 


FFRRUARY 1978, 


EXTENNFE SFT MODS, 


“ 


$e an ae a FR Re ee OS eB FP ES UB OE eee Pee OTe Oe 


PROCFNURE SPLIT¢SPLITINWsWINTHsS & 
VALUF SPLITIN\s WIDTHS & 
TNTEGER SPLITINYs WIDTH 


RFGIN % 


INTEGER T3 & 


3% 


TF NUMSYMS4WIDTH LFQ MAYSYuS THEN % 


RFGY 


FND 
FLSE 
AFGTY 


FNM 
END nF S 


N ¥ 


FOR TtsnUMSYMS STEP =1 UNTIL SPLITINX NO & 
SYMTABFT+WINTH! 
ej STFP 1 UNTTL wIDTH DO % 
SYMTARESPLITINNS+I@17 f= "3000000"3 ¥& 
NUMSYMS t= NUMSYMS 4 WeNTHS & 


FOR Tisy 


x 


N ¥ 


ERROR(463)3 % 


NuUMSYMS 
% 
PLITS * 


tz 43 


ts SYMTABCII3 % 


DAGS DEC77 PATCHES. 


90120500 


20813000 
20813050 
20813100 
20814000 
20814050 
20814100 
40023000 
50059000 
50079000 
50080000 
50081000 
50082000 
50086010 
50086050 
50086100 
50086150 
50086200 
50088000 
50093000 
80037000 
80038000 
80548000 


40052050 
400520585 
40082100 
40052450 
40052200 
40052250 
40052300 
40052350 
40052400 
40052450 
40052500 
40052850 
40052600 
40052630 
40052700 
40052750 
40052800 
40052830 
40052860 
40052890 
40052900 
40052950 
40052960 


i % 
i 2 i : 5 nl as 


bee 


® 
Fs x 
ENDS &, . ‘ Re ee 
| IF TYPFTABICCURTYPFILFENRMESFYT THEN & wee SET VARTABLFS 
@ BEGIN 4 kht ee er 
INTEGER THISSYML» 13 & 
x 
@ SPLITCSTARTSYMs4 93 SYMTAMPSTARTSYM) t= "SLOANE"? & 
Te SIMPLEVAR THEN & 
RFGIN & 
@ PUTSYMEMs "93 & 
__ PUTIDE*W's 1O0OXTHTS! EVeL+THISINDEXs5)3 & 
FN & 
@ FLSE % 
TF TNBRACKFT ANN NNT TNRECARD THEN & 
RFGIN & 
@ PUTSYME%s")$  THYSSYM) t= NUMSYMS$ & 
PUTCONST(093 PUTSYM(w 93 PUTSYMC%s")3 & 
FOR Te=sTARTSYMs! STEP + UNTIL THISSYML DO & 
‘@ PUTTEXTCSYMTARFTI93 
: PUTTEXTC™ 91 "98 & 
; END 
@ FLSE % 
i RFGIN ¥ 
: THTSSYM| t= NUMSYMS? %_ 
‘© IF YNBRACKFT THEN PUTSYMC™I")3 % 
FOR Ys=s 1 STEP { UNTTL AUMPOINTERS 00 ¥ 
BEGIN % 
e@ PUTTEXTO™=4 DTV") PUTTEXTC™ 10225")3 &% 
__PUTTEXTC™ 7 MONW)3 PUTTEXTC™ 1022])")3 & 
ENAS & 
@ PUTSYME™s "93 ¥ 
FOR Ys=STARTSYMsi STEP 1 UNTIL THISSYML DO X 
PUTTEXTCSYMTARFTIDS & 
e@ PUTTEXT¢O™ 41 "93 & 
IF INBRACKFET THEN PUTSYMCN IN) x 
FOR [t#{ STFP 1 UNTTL NUMPOINTFERS NO & 
 ] BEGIN % 
PUTTEXTEM@ I NTVUN DS PUTTEXTC™ 10225")3 & 
PUTTEXTOC™ T MOM™DS PUTTEXTC™ 40221"93 & 
e@ ENN} & 
NUMPOINTERS t= 93 ¥ 
FNS 
e@ PUTSYMO™, 93 PUTCONSTCCABNCNT)3 PUTSYME™)™)3 & 
FND AF SET VARTABLFS3 ¥% 
3 
e@ TF TYPFTARIETHISTN.TYPE).FORMSSFT THEN 
REGIN *% 
GENOM Soe 7It & 
@ . GENTNE "We LONOXTHISLEVEL#THISINDEX #593 % 
eer -ENMS & = 
RONLEAN FIRST,» SPLITTEN? 2% 
) PUTTEXT¢"SETBSE")3 PiTTEXTC™ 32593 PUTCONST¢CCARDCNT)3 &% 
_ PUTSYME™I%)3 & 
CURTYPF t= EMPTYSFT?3 CURMODE t= NUMAFRS & 
@ STARTSYM t= NUMSYMS + 13 % 
PUTTEXYTC™ SFTROE")3 %_ 
* PUTSYMEs")3 SYMYARBCSTARTSYM) t2 “SETBSC™S & 
 ) 


40052965 
40188005 
40188010 
40188025 
40188050 
40188075 
40188100 
40188125 
40188150 
40188175 
40188200 
40188295 
40188250 
40188275 
40188300 
40188325 
40188350 
40186375 
40188400 
40188425 
40188450 


40188475 


40188500 
40188528 
40188550 
40188575 
40188600 
40188625 
40188680 
40188675 
40188700 
40188728 
40188775 
401688800 
40188825 
40188850 
40188875 
40188900 
40188915 
40188930 
40188945 
40188960 
40188978 
40188990 
40198000 
40274200 
40274290 
40274240 
40274260 
40274280 
40296000 
40829000 
40529300 
40529600 
40533500 
40536000 
40544000 


> 


TF SPLITTEN THEN PUTEYMEM)M)3 % 


IF CURSY=COMMA THEN ¥ 


REGIN % 


SPLITCSTARTSYMs1 93 


PUTSYME™ 
SPLITTEN 


END) %. 
NEWTYPE} T1 


CURMODE 


o")3 & 


12 TRUF? 


ts SFT} 


t= NUMRFRS ¥ 


% 


T1.SIZE 


IF CURTYPESANOLTYPF THEN % 
IF CURSY NEQ ANDSY THEN ERROR(64)3 


FND ELSE % 


TF FSSPT THEN & 


RFGIN &% 


SYMTABCSTARTSYM) 


$s 23 


IF CURSY=ASTFRISK THEN & 


BEGIN % 


SPLITCSTARTSYMe4 3 
PUTSYME™S "93 & 
ENN ELSF ERRORCH4)3 % 


_ MONE t= NUMRFRS & 
Te FSET THEN PUTSYME™) 43 % 


SPLITCSTARTSYMs4)3 & 
IF CURSY=PLUS THEN SYMTARESTARTSYM] 
IF CURSYSMINUS THEN SYMTABESTARTSYM] 

ERRONR(64)3 ¥ 


PUTSYME Ms 93 


TF FeSET THEN PUTSYMEM9OM%S3 ¥ 


MODF t= NUMBER} %& 


IF CURSYSFOLSY THEN SYMTARCSTARTSYM) 


ELSE % 


IF CURSYSNFQSY THFN % 


BEGIN *% 


SPLITCSTARTSYMs1)3 


SYMTABESTARTSYMal } 


SYMTARBCSTARTSYM) 


T1.STRUCT t= 0 


t= "SUNTIO(" ELSE % 


tz "SEQUACY & 


IF TYPFTABIELFEFETTYPFI.FORMBSET THEN &% 


BEGIN *% 


SYMTABrY) 3 
EXPRESSIONS % 


PUTSYMEM)™)3 
WRITEFXPRS & 


ENN ELSF 


TF TYPETABPrTX) LSS an OR TYPETAB3CTX) GTR 93 THEN ERROR(S1)3 
TYPETABICTYPETNOEX) 


T1.SIZF 


t= TSIZF 


te "SSsTOne'3 


NUMSYMS 


SYMTARCSTARTSYMJ:= " NOT 3 
r= "SEQUAC™S &% 


ts NUMSYMS = 33 % 


CHE RKTYPESCLEFTTYPFeCURTYPE)3S % 


ts 23 


IF TL,FORM2SFT THEN &% 


BEGIN % 


GENC™o "919793 


ENnS % 


$= T13 % 


GENTNOC™W"SLEVELLOON+NAMS5 D3 % 


TF T1.FORMeSET THEN » 
REGIN & 
GENC™s0% 599693 % 


IF NOT PARAM THEN GENC™£1%s2,6)3 % 


FND3 ¢ 


BEGIN & 


RFGIN & 


GENE", "ete7d? 


te Ti. FORMESET THEN %& 


% 


3 


tz "SYINTSC(C™) X% 


"SOYFFC"™ ELSE % 


x 


t= "SUNTOC"3S & 


x 


40551500 
40582000 
40552200 
40352400 
40552600 
40552800 
40852880 
40558000 
40361000 
40587000 
40893000 
40393100 
40393200 
40593300 
40593400 
40593500 
40893600 
40393700 
40593800 
40593900 
40608500 
40650000 
40651000 
40652000 
40653000 
40654000 
40655000 
40668500 
40688000 
40713000 
40713150 
40713300 
40714000 
40714150 
40714300 
60080100 


* 60080200 


60080300 
60080400 
60080500 
60080600 
60080700 
70210000 
70214000 
80046200 
80046400 
80046600 
80046800 
80064700 
80064780 
80064800 
80064880 


800648900. 


80608105 
80608111 
80608143 
80608115 


ee 


a @ 


ena cre 


—_—_> 


S#PATCH 602 FOR PASCAL YVIL7 CANTAINS 5 CARDS. 


GENTME*W", LOROXCCURLEVEL4+1 )¢NAMS593 & 


FNDS 
ENNS % 


80608117 


80608118 
80608119 


IF TYPE TABI CNAME TAR SICURLEVEL+1 sPARAMTABET ] sPARAMNAME 3 TYPE80627200 


). TeORusSET 
THEN REGIN gv 
GENC™, ote F dS % 


80627205 
80627400 
80627600 


GENTACTWes LOOOXCCURLEVEL 41) +PARAMTABFI 36 PARAMNAME 80627800 


2535 % 
FAD? 


80627801 
80627850 


CORRECT REPRESENTATION OF “NIL*, 


$1: RFCFTVEN FROM DAG LANGHYMR AN 6/07/78. . 
$s: MAVIN A CNOPFR , HFRTOT@WAT? UNIVERSITY... JULY 1978. 


NILTYPF tz 6) Make TYPE OF "NIL" eee 20363000 
TreF MRM f= POINTERSS TYPFTAMI([6) te TL3 20364000 
EMPTYSFT t3 73 %& 2d 20364500 
TieF ARM t= SFET3 TYPFTABIT7?] t= T1i3 20365000 
NUMPYPES ta 73 & 20365500 
$# PATCH 693 FOR PASCAL-XV1T.0. CONTAINS 6 CARNS, CORRECTION TO PATCH 601 
$+ NAVIN A CNNPER #6 n ANDERSON, HFRIOTeWATT UNIVERSITY. UST AUGUST 1978 
$1 
INTEGER STARTSYMsFIRSTSYMAMODESTYPELs FS 40618000 
PUTMUMMYS STARTSYM t= FYRSTSYM #5 NUMSYMS3 40621000 
SPLITCFYRSTSYMs1)3 | 40680000 
IF CURSY = PLUS THEN SYMTABLFIRSTSYM] t=# "SUNIOC” FLSE 40651000 
If CURSY = MINUS THEN eYMTABLFIRSTSYM) t® “SOIFFC" ELSE 40652000 
_ ERRORC64)3 40653000 
$# PATCH 645 FOR PASCAL.XVT.N. CONTAINS 7 CARDS, 
$ 40103100 
$ 40105200 
$ 40105300 
$ 40105400 


YF TNSYDEPARENS ANN STMPLEVAR AND TYPETABIPCURTYPE).STRUCT > 6 AND 40198500 
TYPFTARIPFCURTYPFI.FNAM « FILES THEN SYMTABESTARTSYM].(35261 $2 40198600 
. Why 3 40198700 
$# PATCH 700 For PASCA, .XVT. "0 HAS 179 CARDS. REDUCE THRASHING RY CODE CHANGE 
$: TN TMPROVE RUN TYMF FFFICIENCY BY REARRANGING THE THE COMPILERS CODE. 
$: THE COMPILER HAN A HIGH MVEMLAY 1/0 TIMF AND HIGH ELAPSFD TIME IN RELATION 
$1 TN THE PROCESS TIMFs ANN ORSFRVATION OF THF 85700 CONFIRMED THAT IT WAS 
$1 THRASHING IN 32k. THIS PATCH ATTEMPTS TO REDUCE THF CORE REQUIREMENT RY 
$: REARRANGING THE SFGMENTATION MF THE CODF. LARGE SEGMENTS ARE ELIMINATED 
$: SN AS TN AVOTOD PULLING CADE THAT WILL NOT BF EXECUTED INTO CORE AND TO 
$: RFLFASE CODF SEGMFNTS AS SOmn AS EXFCUTTON KAS PASSFD. FOR EXAMPLE» THE 
$1: CRNSS REFERENCE ROUTINES WE OF ALL CONTATNEN IN THE LARGE OUTER ALOCK CODE 
$: SEGMENT WHICH INCLUDED VARTAUS UTILITY ROUTINES, 
$: A FFATURE WHICH CONTRIBUTED, SIGNIFICANTLY TN LARGE SFGMFNTS WAS THE HIGH 
$: NUMBER OF YMF FINES" WHICu Re SUL TED IN SIZEABLE SECTIONS OF CODE BEING 


‘$t GFNFRATFD YNeLINEG, SOMETYMEe MANY TTMES IN ONE SEGMENT, THESE "DEFINES® 


$; WERE READILY CHANGFO INTN PROCEDURE §. CA STNE EFFECT OF VIRTUALLY ELIMINATING 
$: DFFYNES FOR CONF YS THAT. THe "BEND" OPTION NO LONGER RESULTS IN NUMEROUS 

$: BLANK LINES REPFATYNG THE SaMF SEQUENCE NUMBER FOR FVERY “END” 1N THE NESTEN 
$: OFFINES.) 


$: NTLS A OTTFs UNTVERSTTY AF NATAL» DURBAN. AUG = NOV 1977, 

$$: 

. | 10167000 
$ 10168000 
$ 10169000 


: \ : : F : , : ‘ ' 
: : i j : y : 


® © 


> 


j 
j 


VALUF NAME 4 sNAMP2erABLE »DECLS 
REAL NAMF 4 sNAME23 
INTFGFR vTABLES BOOLFAN NECL3 


FORWARD3 


PROCFOURE PRINTERRORSS FNRWARNS 
%eee PRINTS A HFANING AT START OF NEW PAGE. 20026000 


PROCFENURE HEAMYNGS 
BEGIN 

END nF HEANTNG3 
PROCFNURE PRINTLINES 
BFGIN 


END MF PRINTLINEGS | 


PROCFNURE NEWCARDS 
BFGIN 


NeFINE NEWSEGMENT # HERE #3 


Zaee PRINTS a PASCAL SOURCF CODE LINE 
De FINE NEWSEGMENT @ HERE #3 


%aee REANS A NEW PASCAL SOURCF CODE CARD 
DeFINE RESULT = ICARDE #35 FTC #3 


RFPLACF XLINEPNT RY " " Foe 16 WORDS3 
RFPLACF LINFPNT RY CARNMPNe FOR 10 WORNS» XLINEPNT FOR 6 WORDS3 


FND nF NEWCARDS 
DEFINE GEN(GENS »GEN2 sGFN3) 2 
GENIN CGENIN 1s GFNID2sGFNTD3 I= 


GeNIC TRUE sGEN1 sGEN3GEN2) #» 
GENICFALSE sGENIN1 »GENIDN2sGENIN3) #3 


PROCEDURE GENI¢GENTs TXT» NUM. N 23 


VALUF GENTs TXT. NIIMs NS 


ROOLFAN GENTS ALPHA TXTS TNT&GER NUMs N} 


BFGIN 


TF GENT THEN 

os TEMTLOD tz TXTS 

END 

ELSE 
cHro) tz TXT3 

END FNM GENTS 

PROCFNURE GENINTC N 3 

VALUF N3} INTEGER N3 

BFGIN ; 
INTEGER NARS» NST7F3 

END mF GENINTS | 

PROCFNURE WRITFALGNL3 
NEFF TNE NEWSEGMENT @ HERE 
NFE INE NEWSFGMENT = HERE 
NFF INE NEWSFGMFNT © HERE 
NFFYNE NEWSFEGMENT HERE 


DeFINE START = NUM #», NOYG = N #} 


20016000 
20017000 
20018000 
20019000 
20020000 


20027000 
20033000 
20036000 
20037000 
20047000 
20050000 
20081000 
20056000 
20057000 
20061000 
20063100 
20063200 
20063300 
20063400 
20063500 
20063600 
20063700 
20063800 


wees GENERATE A TEXT "TXT"%» CONSISTING OF 20064000 


Zee GENERATE AN ALGOL IDENTIFIER, 


MeFINE RESULT = ALGOL CODE #3 


eens WRITES A COMPLETED ALGOL CARD fA 


ALPHA THISIO, CURNAME 1p CURNAMe 23 % USED IN SCANNER 


PROCFNURE SEARCHTAR( TAB 93 
VALUF TABS INTEGER TAR3 

FND mF SEARCHTAB3 

PROCENIIRE SFARCHS 

BEGIN. 

END MF SEARCH3 


VALUF NAME{s NAME2» TABS 
ALPHA NAME4, NAME23 YNTEGFR 


END OF NEWNAME$ 


NEF INE NEWSFGMFNT = HERE 
ME RINE | NEWSFGMFNT = HERE 
NFFINE NEWSFGMENT = HERE 


Sane SEARCH NAME TABLE "TAR" FOR THE 
Ziex IDENTIFIER JUST READ. 


Kau SEARCH ALL TABLES CURRENTLY IN USEe 
DeF INE RESULT = THISID #3 


PROCFNURE NEWNAMEC NAME GsNAMEDs TAB 93 


TABS 


#7 
#7 
#: 


PROCFNURE CHECKTYPFS¢ LEFTTYPe, RIGHTTYPE 93 


VALUF LEFTTYPEs RIGHTTYPES 


BEGIN. 


INTEGER LEFTTYPEs RIGHTTYPES 


20067000 
20070000 
20073000 
20076000 
20079000 
20082000 
20083000 
20084000 
20085000 
20097000 
20145000 
20146100 
20168400 
20180100 
20193100 
20205000 
20208000 
20208100 
20221000 
20223000 
20224000 
20233000 
20236000 
20236100 
20236200 
20250000 
20515100 
20533100 
20546100 
20802000 
20803000 
20804000 


H : ‘ 
i 2 i ‘ F 
: : i H : * : 


a 
. 


Perera} 


BUS + 


corer 


nh 


——_ 


REAL TT le TY23 INTEGER Fi. F2e LT» RTS 20803000 

END OF CHECKTYPFS$ 20838000 
PROCFNURE FYLFPARAM( NFFAULTFsLF 3 Been CHECKS THE FIRST PARAMETER 20844000 
VALUF PFFAULTFTIES INTEGER REF AULTFILFS& eos TO SEE IF "7 1S A FILE. 20844100 
BFGIN. NEFYNE RESU TS = FILENAME & LPARFOUNN #3 20845000 
ENO mr FILFPARAMS 20869000 
REAL CURVALS INTEGER CURLFENGTHS 20872000 
; . act, Se 20873000 
PROCFN RE CONSTANTC CyALs CTYPF 93 20874000 
REAL CVALS YNTEGER CTYPE3 20875000 
BEGIN — 7 20876000 
YNTFGER TFORMS RONLFAN SYANEDs NEGATIVES 20876100 

END AF CONSTANTS 20921000 
$ . 30082000 
ALPHa es» x3 xe CURNAMES @ CURNAME2 MOVED TO 20205000 ) 30083000 
INTEGFR LASTCHARPOSS 4¥¢ CuUPVAL » CURLENGTH MOVFO TO 20872000 ) 30084000 
PROCFNURE yNSYMANL3 Sexe POENTIF YES THE NEXT SYMBOL *eewee 30087000 
BFGIN 30087100 
. : 30087200 

PRACEDURE NEXTCHARS %we* GETS THE NEXT CHARACTER, 30088000 

FNM OF NEXTCHARS 30093000 

$ SET VOINT 30095000 
$ or _ _ POP vOInT 30098000 
MEFINE Ti = EXP #3 ® WSED AT 30178000 30099100 
BEGIN DEFINE NEWSFGMENT = HERE #3 30261100 

END NEWSEGMENT$ 30282200 

$ 40016000 
$ 40017000 
INTEGER EYPRLFVELS : 40018000 
DFFYNE PUTSYM(S) = PUTTEXTC CSya1f41t516) ) #3 40029000 
$ SET VOINT 40029900 
$ . ae POP vOoInT 40033000 
DEFINE PUTRUMMY = PUTTFEXT¢*200R000") #3 40041000 
$ SET VOINT 40042000 
$ POP VOTNT 40044000 
PROCFOURE WRITFEXPRS — Meee WRITE GENERATED ALGOL EXPRESSION 40053000 
REAL SX} INTEGER Ths Ty3 40054100 

FNO me WRITEEXPRS . 40066000 
PROCFRURE CHECKEXPROE LIYTM, ULrM 93 Zax WRITE CODE TO CHECK VALUE 40069000 
VALUE LLIMs ULTMS YNTFRER LLYMs ULIMS 40069100 
BEGIN DEFINE CHECK = VALUF #3 40070000 
END me CHECKEXPR} 40077000 
INTEGER Tis T53 % USED ONCE EACH 40086100 
TISSTLFIRSTWITHSYM$ 75a TeLASTWITHSYMS 40094000 

FOR TiteTd STFP ¥ UNTTL +5 DO PUTTEXTCWHTHTABETI193 40095000 
NFFYNE T1 = T #3 ¥ USED AT 40558000 40298000 

$$ SET VOINT 40299000 
$ POP vorIntT 40309000 
: 40331000 

PROCENURE PARAMFTFR} eee CHECK THAT THE FUNCTION HAS 1 PARAM, 40332000 

BEGIN 40333000 

TNSYMBNL $ 40334000 

IF CURSYSLPAR 40335000 

THEN BEGIN 40336000 
PUTSYMC™C"93 TNeYMBOLS EXPRESSTONS 40337000 

IF TYPFTARICCURTVPE le FORM@NUMFRIC THEN CURTYPEt®INTTYPES 40338000 

TF CURSYZRPAR THEN BEGIN FRRORC3)3 SKIPCRPAR) ENDS 40339000 


H ‘ ' 5 i : 
+ : i : F 7 + - . te ’ : 


® @ 


PUTSYME"9NDS TE CURSYSRPAR THEN INSYMBOL3 
END ELSE FRROR¢C32)3 £ OR ERROR(S8) 
END OF PARAMFTFRS 


; 1 


§ 
REGIN LABEL LABFOUNNS 
THISTD, IDCLASSECNNS? AND BONLEANCTHTSIO. FORMAL) OR 
_ THISTO, IDCLASS2FIINC 
THEN ASSIGNMENT F) SE 
$ SET VOINT 
gts Merete es Be ails Mapes Ayes POP vornT 
VALUF RFCTARSETRETADORS 
INTFGFR RFCTARSFIRETADDRs LASTADORS 
$ SET VOINT 
$ POP vOrnT 
PROCFNURE TYPFNECLE TTYPFs TSYZE 3 Zeewee TYPE DECLARATION teewe 
INTEGER TTYPFE, TS+7E3 pS EPEC PCRS CECE SCS SC CSS eS 2 
BFGIN | 
INTFGER RECINX» ARRSTRUCT» TXe SXs Ts NB REAL Tis T2s 1T33 
RONLEAN FIRST, PACKENS 
$ A os ; 
FN TYPERR} 
PROCFNURF SURRANGF 3 Saux SUBRANGE AFCLARATION «a 
BEGIN. Ree REE EEH EERE EEK 


RF AL VALX19 VALX2s Th? 
INTEGER TYPEX1, TYPFX23 


CONSTANTCVALX 1s TYPEY 1S 
TF TYPETABIFTYPEX1 2. FORM>CUAR THEN ERRORC11)3 
TF CURSYZONUBLENNT THEN EReOR(53)3 
TNSYMANL 3 
CONSTANTOCVAL X25 TYPFX2)3 
TF TYPFX{>0 ANN TYPEX2>q TORN 
TF TYPEX(#TYPEXS THEN ERPARC11) ELSE 
TF VALX1>VALK2 THEN ERPOR(S4)3 
TF CTALRTYPFTARYETYPFYS 16 FmRM) # SYMBOLIC THEN Tit=SURTYPE3 
NEWTYPES TTYPE SaTYPETNNEX? . 
TAASIZPtaTSrZEtet$ TI.STRiCTISOS TLsMAINTYPEERTYPEX43 
TYPETARILTYPEINDEX T2713 
TYPFTAR2CTYPEINDEXI8aVAl Xi: TYPETABSCTYPEINDEXJIEVALK?S 
ENN AF SUBRANGES 


DEFINE DEC # POYNTFR #3 
DEFINE DEC = ARRAY #3 
DEFINE DEC = FILE #3 
DEFINE DEC # SET #3 
- : DEFINE DEc # RecORn #3 
LARFL CASEPARTs EXTT3 ou ay ; 
REGIN | DEFINE DEc = VARIANT #3 
LABFL CASETYPETNS 
FNNS 


2 OEFINE DEC w FILE #3 
GENE s/ Hea BS 

DEFINE DEC = LAREL #3 

DEFINE DEC = CONST #3 


40340000 
40341000 
40342000 
40350000 
60396000 
60399000 
60423000 
60423200 
60424000 
70013000 
70016000 
70018000 
70019000 
70022000 
70034000 
70035000 
70036000 
70037000 
70038000 
70039000 
70040000 
70041000 
70042000 
70048000 
70050000 
70051000 
70052000 
70053000 
70054000 
70055000 
70056000 
70057000 
70058000 
70059000 
70060000 
70061000 
70062000 
70063000 
70064000 
70065000 
70066000 
70067000 
70068000 
70069000 
70117100 
70143100 
70180100 
70200100 
70220100 
70247000 
70285100 
70285200 
70349100 
80066100 
80107000 
80424100 
BO447400 


j } : : : . 7 . 


DEFINE DEC = TYPE #3 80475100 

eer OEE INE DEC = VAR #3 80496100 
YF CURSYaFUNCSY OR CHRSvePROCSY 80540900 
THEN BFGIN DEFINE NEC = CODE 43 803540910 
PND OF SEGMFNT FOR PROCENURF DECLARATIONS) 80658100 
gf PATCH 701 FOR PaSCAaL.XVI.0 PONTAINS 14 CARNS. REDUCE THRASHING BY ARRAY CUTS 
$1: TN TMPROVE RUN TYME EFFICIENCY BY REDUCING ARRAY SIZFS. THE MOST SIGNIFICANT 
$1 CONTRIBUTION TO THe COMPYLEES THRASHING BEHAVIOUR WAS THE EXCESSIVELY LARGE 
$: MATA ARRAYS. THTS PATCH SUCAFEDS IN ORASTICALLy REDUCING THE CORE REQUIREMENT 
$: MF THE COMPTILER BY MAKING MaST OF THE LARGE ARRAYS MUCH SMALLER WITHOUT 
$1 TMPNSING UNRFASONARLF RFSTRyCTTONS. | IN PARTICULAR» THE THREE ARRAYS» 
$1 NAMFTAB(, NAMETAB2, NAMF TAB WERE FACH fOts0s 0210221» AND HAVE BEEN REDUCED 
TM fFOU3Ms 013073. THFESF_RERUCTIONS HAVE NOT PREVENTED THE COMPILATION OF 
$: A | ARGE PASCAL PROGRAM NF AROUT 4000 LINES» NAMELY THE P& PASCAL COMPILER — 
$: FROM ZURICH. IN Facts PRIOR TO THE CHANGES INTRODUCED BY PaTCcHES 700 & 701» 
$: THF P4 PASCAl COMPTLFR TAOK 60 MINUTES FLAPSED TIME TO COMPILE, wHICH wAS 
$1 RFNUCED TN 9 MINUTES BY THEeF PATCHES» WHILE THE PROCESS TIME HAS REMAINED 
$: CONSTANT AT 9 MYNUTFS,. 
Si*wae NOTE THAT TF "MAYNAMES" TS CHANGED THEN THERE ARF 7 DEFINES IN THE FILE 
$: _ PASCAL/PRELUDE THAT MUS? ALSO BF CHANGFO. 
$: "MAYNAMFES" 15 CHOSFN AS A PrYME NUMAER aS TT IS USEM AS A MODULUS FOR A HASH 
$t FUNCTION. THE PASCAL TNENTVFIERS ARE TRANSLATED TO ALGML NAMES USING LEVEL 
ANN HASH INDEX. HENCE CHANA®TNG "MAYNAMES"” CHANGES THE ALGOL NAMES FOR 
$1 "YNPUT™, “OUTPUT "» & MPRT250. 


a 
ad 


ee ee ee ee ee ee] 
| | ed 
Ld 
cia 


Ls 
td 
7 


$2 NTLS A OTTFs  UNTVFRSTTY mF NATALs DURBAN. AUG = NOV 1977, 
$1 
DEFINE MAXTARBLFS = 30 #» %uaX NUMBER OF LEVELS IN TOENTIFTER TABLE.10042000 
MAXNAMFPS 8307 #, Zuax NAMES IN EACH ROW OF YDENTIFIER TABLE «10043000 
— . % ONLY USep IN WITH STATEMENT TO TEST 10044001 
MAYCASES 364 #, SuAy LABELS IN A CASE*STATEMENT, 10045000 
MAXL ABS BBO #, ZuAX NUMBER OF LABELS IN PROGRAM, 10046000 
MAXPARAMS 2200 fs BMAX NUMBER OF PARAMETERS ITN WHOLE PROGRAM,10047000 
MAXTYPES 3250 ft» %uaX NUMBER OF OTFFERENT TYPES. 10048000 
MAXCONSTS #100 #» Ze1ZF OF TABLE FOR CONSTANTS, 10049000 
MAXWITHSYMS= 70 ps ZMaX NUMBER OF SYMBOLS USFN RY WITH*STATMS.10051000 
MAXSYMS = 3200 #s %uaxX NUMBER OF SYMBOLS IN ONE EXPRESSYTON, 10052000 
LISTLENGTH #100 #, SuAX LENGTH OF vAR & PARAM LISTS, . 10053000 
MAXFXTFTIES@10 #, ZmaxX NUMAFR OF EXTERNAL FILES, 10054000 
MAXFILES =10 #, wuax NUMBER OF FYLES DECLARED AT ONE TIME. 10055000 
MAXPNTRS #810 #, %uaxX NUMBFR OF UNDECLARED POINTERS CFNRWD).10056000 


$# PATCH 702 FOR PASCAL.XVT.O FONTAINS 4 CARDS. BOOLFAN ARRAY “ERR” 120 TO 4 
$: TA FXTEND THe RFDUCTTONS AF PATCH 701 TO THE BOOLEAN ARRAY "ERR FOR NOTING 
THE SYNTAX FRRORS THAT HAVE OCCURRED. THYS PATCH COMPRESSES THE ARRAY FROM 
$1 129 WORMS TO 4 WORMS BY SING 32 BITS IN FACH WORD. 

$: IN ADDITION. THYS PATCH TNSERTS THE ERROR COUNT ON THE LEFT OF THE LINE 

$+ WHTCH REPORTS THE SYNTAX ERPORS. 


$1: NTLS A OTTF, UNTVERSTTY mF NATAL» DURBAN. AUG = NOV 4977; 
asses sh leg ot 
ARRAY FRRPLO?333 % HOLDS 128 BITS % RECORDS ERROR MESSAGES USED. 10156000 
OFF INE ERRCERR) = RBONLEANCOSeERRPCERR .COSZTILCOSERRA.fHtS1t1)) #3 10156100 
FRRPTERRNUM, C6:231t aE RRPCEPRNUM,£C6I2599 & LFERRNUM, C485 39081 93 20182000 
REPLACE POTNTERCERRI TNePOls +4 BY NUMERRS FOR O DIGITS3 20194900 


$# PATCH 703 FOR PASCAI..XVI.0 PONTAINS 6 CARNS. REOUCFE THRASHING BY SAVF CORE 
ia , $2 TO TMPROVE RUNeTIMF FFFICTENCY BY REDUCING NON@OVERLAYARLE AREAS, 

$: THTS PATCH RFDUCES THF SAVE CORE REQUIRFMENTS BY DECREASING THE FILE BLOCK 

$1 SYZFS AND ALSO THE NUMAFR Oe RUFFERS WITHOUT UNDULY RETARDING THE COMPYLATION 

$: SPFFN. THE STZF OF THE NISw AREAS 1S KEPT A MULTIPLE OF THE ORTGINAL BLOCK 
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$t SYZ7F WHERE RELEVANT 70 AVOIR INCOMPATIBILITY PROBLEMS. COMPARABLE REDUCTIONS 


$t IN BLOCK STZFS NF THE ORJFCr PROGRAM ARE ALSO MADE. 


$t NTIS A OTTEs UNTVERSTTY mF NATAL» DURBAN. AUG » NOV 1977, 
St 


FrLF cARD *SnURCE” €151093095 % PASCAL SMURCE CODE INPUT FILE 


10035000 


FILE PASCALGOL NISK SFRTAL f201300) C12102302SAVE 0)3 & ALGOL CODF FILE10037000 


FILE XREFFILE M1SK SFRTAL [20120003 (15393093 % FOR CROSS REFERENCE 

TF RECSTZFa1 OR RFeSIZES10 THEN GFNINTC30) 

GENC™s SAVE", 65393 

GENC"3093", 4,493 
$# PATCH 704 FOR PASCAL.XVI.0 HAS 8 CARDS; 
$1 Tm REDUCE THE COMPTLFR=§ OVERHEADS. FIRSTLY» THE ALGOL CODE FILE 


10137000 
80119000 
80122000 
80123000 


REDUCE OVERHEADS IN COPYING FILE 


$+ PASCRUN/DISK Ts RENAMFN PASCAL/PRELUDE, ORIGINALLY» THE COMPYLER COPIED 


 $t THE PASCAL/PRELUDE FILE. NTA THE GENERATED CODE FILE BEFORE STARTING 


TO 


$: TRANSLATE THF PASCAL PRNARAw. THIS PATCH SAVES THE 3 SFCONDS OR SO REQUIRED 
$1 FAR THIS BY SETTING THE “TADR™ OPTION FOR THE ALGOL COMPILER ANN LABEL 


$: FOUATING THF TAPF FTF TT _PASCAL/PRELUDE. THE OVERHFAD TO THE ALGOL 


$1: 78 NEGLTGIBLF. THF. ADVANTARE 1S EVEN GREATFR YF THE PROGRAM FAYLS TO 
$: COMPILE SYNTAX FREE. THE FeLe PASCAL/PRELUDE T8 NO LONGER REFERENCED 


$t NFRFCTLY IN_THE PASCAL COMPYLER. 
st SEF PATCH 7116 THYS NFEFAS PATCH 703, 


$t NTIS A OTT, UNTVERSTTY mF NATAL» DURBAN. AUG = NOV 1977, 
$1 bg 

FRRARS C15." ERRORS NETECTED We20CMHMD /)y 

ALIST C'$ SET LIST "Ss 

MERGE ("$ SFT TAPF oeFSET S$” / 


"$ RESET TAPE, T732"99000000" Dy 
TERMMESS ("eneae CAMP eLATION TERMINATFO.")3 
WRITFOCPASCALGOL »MERGF 93 % ALGmL MUST COMPILE PRELUDE FIRST 
$ 


SET vorInT 
$ POP VOINT 
$1 3 ALAML FILE TAPFe PASCAL/PRELUDE SERIALS ALGOL FILE CARD", 


$# PATCH 705 FOR PASCAL .XVT.O PONTAINS 21 CARDS. GENERATE A BETTER ZIP 


$1 THTS PATCH TIDIFS UP THF CONF THAT GENERATES THE ZIP TO PASS CONTROL 
$t COMPATIBLE ALGOL COMPTLFRe 

$: NTLS A OTTF, UNTVERSTTY mF NATAL» DURBAN, 
$1 

$ 


AUG = NOV 1977. 


PROGNAME t= JF CURLFNGTH «< 7? 
THEN M&PURNAMEL COL IO XCURLENGTH=1 t6xXCURLENGTH 
ELSE CURNAMF 2y fF S16 8CURNAMES (4443513613 
$t ARRAY 7TIPARRAYCO!1693 
AFFINE PPROGNAMF & 13 t, PALGOLNAME = (4 fe 
PLIBRARY = 15 ft, _PUSER = 146 #» 
P(P1) = POINTER’ 7IPARRAY(P4 1944 FOR 7 #3 
$ SET vVOrnT 


POP VOINT 


a) 


7IPARRAYEPPROGNAMES | =PRAGNIMES ZTPARRAYEPALGOLNAME) §@ALGOLNAMFS 
7YPARRAYEPLTBRARY Its Ir SAVEFACTOR>O THEN "LIBRARY" ELSE 
TF SAVEFACTOR<€O THEN * SYNTAX" ELSE " & RUN 3 

7TIPARRAYEPUSERIE atiSFRS 
REPLACE POINTERC(ZIPARRAYE #9) BY "CO COMPILF ", 

PCPPRNGNAMF), "/", PCDUSER)» 

" XALGNL "s PCPLIRRARY)» 

"3 ALGOL FILF TAPFa PaSCAL/PRELUDE SFRIAL} ALGOL FILE CARDa",» 

POPALGALNAMF 5 "/™, PePUSER)s " SERTAIS END." 


COMPILFR 


10188000 
10189000 
10190100 
10190200 
10192000 
90022000 
90023000 
90032000 
90119000 


TO THE 


90013000 
90042000 
90042010 
90042090 
90092000 
90095000 
90096000 
90097000 
90098000 
90104000 
90109000 
90112000 
90113000 
90114000 
90115000 
90116000 


90117000 | 


90118000 
90119000 
90120000 
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SET VOINT 90121000 
POP vOrIntT 90128000 
PATCH 708 FOR PASCAL “XV? "0 PONTAINS 25 CARNS, LINE PRINT FILE MAY BE DISK 
TN FNABLE THE COMPTLFRes “PReNT FILE TO RE LABEL EQUATED TO NYSK AS FOR OTHER 
BS700 COMPILERS. TN PARTICILARs THTS PATCH CHANGES THE NAME TO LINE TQ BE 


CONSTSTENT WYTH ALL. THE SYS+FM COMPILERS. 


THE ABILTTY TO LABEL EQUATE FILE 


")TNE® TO OTSK TS NFCFSSARY TF THE COMPILER IS TO BF USFD FROM A TERMINAL, 
NTF THAT A RLOCKFD FILF SHmULD NOT HAVE VARIABLE LFNGTH RECORDS IF I7 Is 


7A RF LABEL FOUATFN TO A PRINTFRe 
RFCARD 1S WRITTEN» 


TF LESS THAN THE MAX NUMBER OF WORDS PER 
THF AALANCE OF THE RPECORM REMAINS UNCHANGED FROM WHAT WAS 


LAST IN THE FILE RUFFFRs» SO THAT ON BEING PRINTEDs "GARRAGE™ APPEARS AT THE 
END OF SUCH INES. 


ntt S A OTTF, UNTVERSTTY aF NATAL» DURBAN. 


AUG = NOV 1977, 


SAVE FILE AUT LYNE pTSk SFRYAL F2091200] Cisi7s+90sSAVE 41)3 % PRINT FILE 10036000 


% AyOIn BLOCKING RECORDS OF VARYARBLE LENGTH 10036001 

ARRAY YCARMs ALGOLCARNPOIO1, LyNESs XLINECOL1693 10130000 
¥ AVOID RLOCKING VARIABLE LENGTH RECORDS 10130001 

ARRAY HFADTEXTs ERRLINESOI74)3 49433000 
WRITEC LINEENOI, 17K) TNE Rw 93 20042000 
WRITFC LINEENOV9179XL TNE ead 20043000 
WRYTECLINEs 17oLINESE eI 93 20045000 
WRYTEC! INE» 17sERRLINEL eI): 20195000 
LITNFPNT PaPNINTERELINESP1I93 20315000 
REPLACE LINFPNT#A RY * # Far 17 WORDS3 20317000 
REPLACF XLINEPNT#A RY | TNEONT=8 FOR «7 WORODS3 20318000 
REP, ACF PNINTERCERR INFF HT) RY “¥eee ", LINEPNT FOR 16 WORDSS 20319000 
RFPLACF ALGMLPNT BY LINFPNr FOR 9 WORDSS 20321000 
RFPLACF POMINTERCHFANTEXTC#1) BY LINEPNT FOR 106 WORNSs "PAGE 1 "ys 20326000 
LINEPNT FOR 6 WORDS 20326100 
WRITECLING S 17sX¥RFFLYNEC S13 20549000 
LOCKE LINEs * 93 ¥ &@ PRUNICH 20550000 

—  WRITFOLINE, 17sXRFFLYNECHI)3 LINECNT?#*s_INECNT+13 ‘20560000 
WRITFCLYNEs 17s XRFFIINeP #193 LINECNT&alLINECNT413 20571000 
WRITECLING s TERMMERS)3 90084000 
 WRITFECLINGs NOFRRORS YS 90111000. 
WRITECL INE» ERRORS»NUMFRRS\3 91110000 
WRYTECL INE,» ERRORMFSSIPTI)¢ 91112000 
WRYITECLING, ERRORMPSS2f t=6n193 91114000 


PATCH 709 FOR PASCAL.XVT.O -ONTAINS 17 CARDS, NO PRINT TF NO LYST & NO ERRORS 
TA MPEN THE PRINT FILE ONLY TF THE LIST OPTION IS SFY OR IF SYNTAX ERRORS 


ARF NETFCTED. 


YF THF FYRST CARD IN THE PASCAL SOURCF RESETS THF LIST OPTION 


C#$i= *) AND NO SYNTAX FRROOS ARE DETECTED, THEN THE PRINT FILE WILL NOT BE 


CRFATEN CEVFN FOR THE HEADING) AS FOR OTHER COMPILERS. 
“IMPLEMENTATION NOFS NOT REQUTRE A TEST PRIOR TO PRINTING EACH LINE TO 
DF TFRMINE WHE THER A HFANTNG HAS BEEN PRINTED. 


IN PARTYCULARs THIS 


TT ONLY NOES THIS TEST WHEN 


THF LIST OPTYON 1S SFT ARTES. THE FIRST CARN OR FYPLICITLY THEREAFTERs OR 
tN THE: “"PRINTERRORS* ROUTINE. 


NTLS A OTTFs  UNTVERSTTY AF NATAL» DURBAN. AUG = NOV 1977, 
TF PAGFCNT={ THEN WRITFOLINFENO] 91 7eHEADTEXTE#]) ELSE 20029900 
WRITEC LINFPPAGFI)$ = 20030000 
WRITEC LINFPORL Jot 7eHEANTE VTE) )3 20031000 
fr NOT LYSTNMPTYION THEN 20194000 
. BFGIN TF PAGECNT®0 THeN HEADINGS PRINTLINE FNDS 20194100 
RFPLACF POINTER(HFANTEXTC #39445 BY TEXTPNT#5 FOR 2.%/", 20329000 
| —oFEXTPNTS1 FOR 2. 7%» TEXTPNT4+3 FOR 23 20330000 


@ 
a NEWCARDS LYSTOPTIONS @CHECKOPTIONtsTRUFS &% DEFAULT 20402100 
TNSYMBML3 -«-&&_ ANALYSYNG FIRST CARD MAY CHANGE DEFAULT LIST MPTN 20402200 
[ TE LISTNPTINN AND PAGF eNTen THEN HEADINGS % ON FIRST PAGE. 20402300 
| IF LYSTOPTTON THEN ef PAGECNT20 THEN HEADINGS & ON FIRST PAGE 30282100 
Cte #3 % TO INTTYALTZE wTNSYMBOL* 90034000 
INITTALIZES % COMPTLFR TARLFes NEWCARDs INSYMBOL 90035000 
$s : 90036000 
IF PAGFCNT > 9 % THERE HAS BEEN SOME LISTING 90088000 
THEN RFGIN WRITEC LINFPDBL 9: WRITEC LINECOBLI ) ENNS 90089000 
TF PAGFCNT>O THEN (% THERE HAS BEEN LISTING 90110000 


$# PATCH 710 FOR PASCAL. oXVT.LO rONTAINS 4 CARDS. NO OVFERPRINTING WITH BLANK LINE 
$: TN PREVENT OVERPRINTING wiTu BLANK LINES. TF THE OPTION FOR *BALDOFACE™ 

$: PRINTING OF RESFRVED WORNS rs SET ¢#$R+ *) THEN EACH LINE IS CONSTRUCTFD BY 
$1 2 NVERPRINTS FOR THE RESFRVeN WORDS ONLY» THEN ONE PRINT OF THE FULL TEXT. 

$e THE AIM OF THIS PATCH 1S TQ SKIP THF OVFRPRYINTING FOR ALL THOSE LINES IN 

$: WHICH NN RESFRVEND WORNS ACCIiRs 


| NYTLS A OTTEs IINTVERSTTY mE NATAL» DURRAN. AUG *= NOV 1977, 

SEFaNE RESWORMDPRESENT « RFSWNenOPTION, C124) #3 10159100 
TF REAL CRESWORNOPTTON) = 3 THEN & RESFRVEN WORD IS PRESENT 20040000 
RESWORNDPTTON t= RFSWORNDPTTON ANN TRUES % RESET RESWORDPRESFNT 20057100 

RFSWORMOPTION t= ROOLEANC3)3 & SET RESWORDPRESENT BIT 30179000 


$# PATCH 711 FOR PASCAL.XVT.0 CONTAINS 10 CARNS. PASCOOL/USERCODE UNIQUE NAME 
$1 TN GENERATE A UNTOUF FILE NAME IN THE DISK NIRECTORY. THIS PATCH CHANGES THF 
$1 METHOD FOR GENERATING A IINTAUE FILE NAME FOR THE ALGOL SOURCE CODE OUTPUT OF 
$1 THF COMPILER. FORMERLY» THrS WAS DONE USING THE TIMF FUNCTION TO OBTAIN 

$1 SMF RANDOM NIGITS. THE METHOD USFN IN PATCH/MFRGE 1S ADOPTED HERE» NAMELY 
$1 STARTING WITH THE PRFFTX €MFTD) "PASCOOL"s A SEARCH TS PERFORMEN TO DETERMINE 
$1 WHETHER SUCH A FILF NAMF TS ALREADY CATALOGUED. IF SOs 1 IS ADNFOD AND THE 

$1 SFARCH REPEATED, TN ADNYTInNs THE FILE 1S CREATED WITH A SAVE FACTOR 

$1: CRETENTTON PFRINN) NF ZERO mAYS SO THAT A HALT@LOAD WILL REMOVE THE FILE 

$1 ANITOMATICALLY, 

$t SFF PATCH 704. 


$: NLS A OTTE, UNTVERSTTY mF NATAL» DURBAN. AUG = NOV 1977, 
$t ae te , 
PROCFOURE SEARCHDYSKNTRECTORYe Feo A 93 FILE FS ARRAY ALOI3 20222100 
SEARCH( Fs Are} 93 % END OF SEARCHDISKNIRECTORYS 20222200 
ea. 20222300 
CHARPNT $2 POINTER(CHIO1 +73 CHOCO] t= * $3 20322000 
CHEO’ te "PASCOQO"S CHARPNT ts POINTER(CCHI019453 90016000 
—PASCALGOL.«FID ts USER te TIMEC S193 90017000 
Dn BFGIN ChaC+i3 REPLACE CHARPNT BY C FOR 3 DIGrrTs3 90018000 
PASCALGOL.MFID ts Al GOL NAMe te CHIO}3 90019000 
SFARCHNTSKNTRECTORYC PASCA) GOL» LYINESC#) 93 90020000 
FND NT TL LINESHolm=1$ x Bot OT ON nrsK 90021000 


$¥# PATCH 712 FOR PASCAL. XVTLO AONTAINS 2 CARDS. MARK PROCFOURE LEVELS IN MARGIN 
$3 PATCH: TN MARK THE sTART AND FNO OF PROCFOURFS AND FUNCTIONS BY ANNOTATING THE 
$1 MARGIN WITH THE SYMANLS "+P & tePo FOLLOWep BY THe LeVpl NUMBER, 


$t NTIS A OTTE,  IINTVFRSTTY mF NATAL, DURBAN, AUG = NOV 1977, 

$t fe teh | | 
MARGING™#P",CURLFVE; 3  & MARK PROCEDURE (EVEL | 80420100 
MARGING"=P",CURLFVFL)$ | % MARK ENN OF PROCEDURE 80702100 


$# PATCH 713 Fg PASCAL.XVT.O+ CONTAINS £4 CARNSeCORRECTS FRROR MESSAGE ETC. 
$y CORRECTS THE AOURLF "NA LEPRORS" MESSAGE AND THE OUTPUT OF HEANINGS 

$1 WHEN 11 7S SET AFTER le. 

S$:  altSO CORRECTS THE SCANNINe PROBLEM WHEN COMPYLER OPTIONS ARE INCORRECT. 
$3 NAVIN A COMPER»s HFRIOT@WATT UNIVERSITY ~*°. 0° AUGUST 4978 
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$1 
e FRROR{O2MESS(//"102 #ea WARNING ONLYs TLLEGAL COMPILER OPTION. ")10188750 
| % 10188781 
& YF FRRNUM=100 AR FRRNUM@109 20161600 
THEN NUMERRS ta NUMPRRS = 33 %*eRROR NUMBeR 102 IS ANLY AN TLUPGAL 20181610 
. x * DOLLAR OPTION WARNING & 20181620 
& 4 *FRROR NUMBER 100 ALONE SHOULD NOT 20181680 
; : FLSE LYSTOPTION #* Cas" ELSE 30265000 
ENN 30280800 
@ ELSE FRRORC10233 30280810 
7 TF ERRC102) THEN 900907410 : 
WRITFOCLINFSFRRORIN2MESS)3 90090790 
@ $ 90110000 
$ 90111000 
C102 ee eWARNTNG ONLY, TULFEGAL DOLLAR OPTION. ")> 91106900 
@ $# PATCH 800 FOR PASCAL.XVY. SO RONTAINS 10 CARDS. 
$1 TO REMOVE CONFLICTS RETWEEN HERIOT@WATT & NATAL EXISTING PATCHES. 
$+ 
‘@ MAXSYMS = ROO#s ZuaX NUMRER OF SYMBOLS IN ONE EXPRESSTON, 10052000 
i MAYPNTRS =z 28#3 ZuaAX NUMBER OF UNDECLARED POINTERSCFORWD). 10056000 
: NEF rne FRRCERRI) = ROOLFANCORERRPLCERR1) .COt2T1CONCCERRY) F4tSyvsisyd#F «10156100 
e TNTFGFR EXPRLEVEL » FXPTNVARENTS ¥ 40018000 
TNTFGFR INDEXs CTYPFs NUMFORWARNSS TX» IS % 80403000 
INTEGER PROGNAMFLENGTHS % 90013900 
TF ERRC100) % 90090600 
"S ALGOL FILF TAPESPASCOUN/DISK SERIALS ALGOL FILE CARDa" 90119000 
PEPALGOLNAMF )o"/*sPePUCFRI 2" SERIALZ, % 90120000 
" YALGOL STACK = 20483 _FND."3 & 90120500 


$4 PATCH 99R FOR PASCAL. XVT. me) PONTAINS 10 CARDS. INSERT PAGE THROWS AT DESTRED 
$+ PATCH TN INSFRT PAGE THRAWS AT DESIRED PoInTs "nN THF SOURCE TO PRODUCE A 
S$: NICELY | ATM AUT LISTING. 


$t 
$ PAGE 19000000 
$ PAGE 20290000 
$ PAGE 29000000 
$ PAGE 39000000 
$ PAGE 49000000 
$ PAGE 59000000 
$ PAGE 69000000 
$ PAGE 79000000 
$ PAGE 89000000 
$ SY : PAGE. 90070999 
NTLS A OTTEs  UNTVERSTTY mF NATAL» DURBAN. AUG = NOV 1977, 
$¢ 
$# PATCH 909 FOR PASCAL.XVT-.0. CONTAINS 1 CARDS. VERSION NUMBER, 
$ 
DEFINE FDITION = "4. 4"# 3% AUAUS? 1978 eeeDAVID A COOPFRee. 10028000 
LABFL OCDOODOOOLINF 901790a1CC EX O/RICOMMONSISFILF S=PATCHES/PASCALSFILE LINESLINE PRINTSENDS 0 /R 


hs 
: i ; ! : 
a 
=> 


® @ 


_-_ 


q 
i 
r) 
\ 
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LARFL OO00000000L INF N0179041CC EX O/RSFILE LINE@LINEG PRINTSCOMMON#@13F ILE SsSYMBOL/PASCAL SENDe 


FrLE: SVMBOL/PASCAL FRIDAY 03/02/79 03149 PM 
10001000 
10002000 
LLRYALLLAAKLKVALALAKLLAKL LLL KY ALA LLL LVELAKK LALLA LLL LLAK LAY LEAHKLALULLKHXEE 40003000 
x % 10004000 
% * 410005000 
¥ * * % 10006000 
% * PASCAL COMPYTLER * % 10007000 
4 BO ae iy dT ik hk kid * 40008000 
% % 10009000 
x _ ae % 10010000 
x WRITTEN 1978 BY % 10011000 
% MAG FF. LaNGMYHRs %* 10012000 
% HER TOT=WATT UNIVERSITY» ¥* 10013000 
+ EN yNBURGH, % 10014000 
4 % 10015000 
% % 10016000 
RLALAALAKAAALALEAK ALL KAALK KK ALLL AVAL LVULALAL LLL LALLUK LLL LLLHK LALA LAKHKXY «90047000 
b 4 x 10018000 
% * oe ; ; * 10019000 
4 PART (3 NeCLARATIONS, % 10020000 
4 Ce ed 2 kd) » 4 10021000 
% % 10022000 
¥ % 10023000 
LLLLAKAAVALAA LLY LHL UHL LA ALLL LGA LLL ELL SELL LALLY LUKE L EYAL AYE ELLY LHHXAXY «40024000 
10025000 
- 10026000 
RFGIN 10027000 
DFFINE EDITIONE"2,3"#3 10028000 
INTEGER NUMERRS, x an42at NUMBER OF ERRNRS IN PROGRAM, 10029000 
SAVFEFACTOR,» % @n+251 SAVEFACTOR FOR CODE FILE. 10030000 
% >O0 COMPYLF TO LIBRARY. 10031000 
% 20 COMPILE AND RUN. | 10032000 
% <0 COMPILE FOR SYNTAX, 10033000 
CARDCNT? % @p+2a: NUMBER OF CARNS READ, 10034000 
FILE CARD "SOURCE" (221M e15N93 % SOURCE CODE INPUT FILE 10035000 
FYLE LYNES 1 (251793 & PRINT FILE. 10036000 
FILE PASCALGOL nIsK SFRYAL 7201600) €2510s150sSAVE 093 %& CODE FILF 10037000 
DEFINE LINPSPERPAGFESA#, 10038000 
MAXINTSSA97SSAG IRATE 10039000 
fa nm : a Ris ; 10040000 
Zaew COMPTL ER CONSTANTS xuxe : 10041000 
DFFINE MAXTABLFS =50#>» ZuaX NUMBER OF NAME TABLES. 10042000 
MAXNAMES =997H, YuaAX NAMES IN FACH TABLE. 10043000 
MAYLEVEL 15%, zuAy DEPTH OF PROCEDURE DFCLARATIONS, 10044000 
MAXCASES m211%s ZuaAX LABELS IN A CASE@STATFMENT, 10048000 
MAXLABS =1008> %uaX NUMBER OF LABELS, . 10046000 
MAXPARAMS =s200#, ZmMAX NUMBER OF PARAMETERS YN WHOLF PROGRAM.10047000 
MAXTYPES B10292#, %uMaX NUMBER OF OTFFERENT TYPES, 10048000 
MAXCANSTS 200%, %eYZE OF CONSTANT TABLE. . 10049000 
MAXTEMPS 25%, XNUMBER OF EXTRA VARS IN FACH PROCEDURE. 10050060 
MAXWITHSYMS=2504, ZmMax NUMRER OF SYMBOLS USEN BY WITH#*STATMS.10051000 
MAXSYMS @ROOK>S zuaX NUMBER OF SYMBOLS IN ONE EXPRESSYON, 10052000 
LISTLENGTH s800f, ZuAX LENGTH OF VAR AND PARAM LISTS, 10083000 
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MAXEXTFYLESS20#s %uaX NUMBER OF EXTERNAL FILES, 
MAXFILES =20#, %uax NUMBER OF FILES DECLARED AT ONE TIME. 
MAXPNTRS 55083 %vaX NUMRBFR OF UNMECLARED POINTERS, 


Zeee NAME TARLES tax 


ARRAY NAME TAB {sNAMFTAROsNAMETAR 30 MAX TABLES» OfMAXNAMES J3 
NEFF ING NAMFLENGTH sCGi16)#, 


TYPE arosyol#, 
yOc1. ASS ariP93ie#, 
VAR BOR,» 
CONST#1#, 

FUNC wO8, 

PRAC m3t, 

TYPES adds 
TNEN SEP3tii ies 
FORMAL aroanii#, 


FORWARDNFF sf25!t1)#, 
EXTERNAL FIL PSE 2Asi ies 


Kate MISPLAY VECTOR wae 

ARRAY NYSP) AYPOMMAXLEVEL ITS 

DEFINE RECTYPE TEOVIOVHS 
FIRSTWITHSYM Er(orini#, 
LASTWITHSYM sroorini#. 
NUMPNTRSYNWITHEE 388618» 
BRACKETSINWITHEE 363118» 
NAMP TAB sfabi7 #3 


Zete TYPE TABLES wae 
ARRAY TYPETARIs TYPFTARDsTYPFTAR3SLOIMAXTYPESI3 
HEF INE FORM sf 3taiete 
NUMERIC =0#>» 
SYMBANLICsi#s 
SURTYPE #29, 
MAINTYPFE=/ 33291098 
CHAR. a34> 
FLOATING =4#>, 
ALFA aSt, 
Set ZO» 
SETTYPFE =f33:1109#s 
POINTERS=745 
POINTTYPFar3atinits 
ARRAYS s8#, 
TNX TYPE =f33711078#s 
ARRTYPE sfazriOrwss 
RECORD zon, 
RECTAB wef3321098>» 
FILFS a10%,. 
FILFTYPESP333109#, 
TEXTFILESt{#, 
SIZPr arqSti2i ts 
«STRUCT MF 239K 183 
INTEGER NUMTYPFS3 


Mews PARAMFTER TABLE ee 
ARRAY PARAMTARTOIMAXYPARAMS 13 
DEFINE PARAMNAMF 2f°9!409#,5 


10054000 
10055000 
10056000 
10057000 
10058000 
10059000 
10060000 
10061000 
10062000 
10063000 
10064000 
10065000 
10066000 
10067000 
10068000 
10069000 
10070000 
10071000 
10072000 
10073000 
10074000 
10075000 
10076000 
10077000 
10078000 
10079000 
10080000 
10081000 
10082000 
10083000 
10084000 
10085000 
10086000 
10087000 
10088000 
10089000 
10090000 
10091000 
10092000 
10093000 
10094000 
10095000 
10096000 
10097000 
10098000 
10099000 
10100000 
10101000 
10102000 
10103000 
10104000 
10108000 
10106000 
10107000 
10108000 
10109000 
10110000 
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PARAMKINN |f4 320%, 

PARAMLEVFL#f23810)#» 

PARAMTYPF 2533110185 

PARAMFILF =f 34s19#3 
INTEGER NUMPARAMSS 


Keke CONSTANT TABLE «ue 
ARRAY CONSTTABPOIMAXCONSTS1? 
INTEGER NUMCONSTS3 


Xeee LABEL TABLE tee 


ARRAY LABTARCOSMAXLABSI3 

OFF INE LABVAL@E14t1534, 
Sone. LABNEFariSei #3 

INTEGER NUMLABSsFIRSTL ARS 


Zwvhe TABLES FOR I/N ANI CHARACTER HANDLING wow 
ARRAY CHEOSOIs TEXTFOS1 I» STRINGLOSILI3 
POINTER CHARPNT» TEXTPNTs TEXTONTOs STRINGPNTS 
ARRAY TCARNEOLO1s LINFTOI16 4s vVLINECOS101, ALGOLCARD(0:993 
PorNnTeR CAROPNTSLINEPNTs¥i INPPNTsALGOLPNTS 
INTFGFR CHARCNTsALGOLCNTsMARGINCNTS 
ARRAY HFADTEXTFOI1O2» FRRLINED AS16273 
INTEGER | INECNTs PAGFONTsFRRINXS 


Yate XREF FILE AND TABLE <7 

FYLE XREFFILE NYSkK SERIAL 12083000) €2539150)3 

ARRAY RLOCKTARFOIMAXTARI FS1, XQFFLINELOSL633 % 
INTEGER NUMXREF »NUMRBLOCKS!? oOINTER XREFPNTS3 


% 

Xe THER TABLES wae 

INTEGER. ARRAY VARLTISTFOSLTSTLENGTH]3 % TEMPORARY LIST OF VARIABLES. 
INTFEGFR VARINMEXsFIRSTVARS 

ARRAY SYMTARLOIMAXSYMS)$ % USEN BY "EXPRESSION", 
INTEGER NUMSYMS} : 

ARRAY WITHTABCOIMAXWTTHSYMS13 % USED BY "WITHSTAT"™, 
INTEGFR NWITHSYMS3 

INTEGFR ARRAY SYMBNL0164)3 % USED BY “INSYMBOL”, 

INTEGER ARRAY SYMKTNOPOL611 % USED IN FRROR RECOVERY, 


10111000 


- 10112000 


10113000 
10114000 
10115000 
10116000 
10117000 
10118000 
10119000 
10120000 
10121000 
10122000 
10123000 
10124000 
10125000 
10126000 
10127000 
10128000 
10129000 
10130000 
10131000 
10132000 
10133000 
10134000 
10135000 
10136000 
10137000 
10138000 
10139000 
10140000 
10141000 
10142000 
10143000 
10144000 
10145000 
10146000 
10147000 
10148000 
10149000 


ARRAY PNTRTAR1»PNTRTARD, PNTPTARILTOMMAXPNTRSI3% USED FOR FORWARD POTNTERS10150000 


INTEGER NUMPNTRS3 

ARRAY FYTFYLETARLCOMMAYEXTFTI ES 93 
INTEGER NUMEXTFILES3 

ARRAY FILETABLOIMAXFTLFSTS 
INTFGFR NUMFTLES3 

RBMOLFAN ARRAY FRRE0NI11993 


¥eee COMPLE TyME OPTTONS wee 


BOOLFAN LISTOPTTONsRESWORDMPTIANs CHECKOPTIONsDUMPOPTIONsXRFFOPTIONS 
INTEGER CARDLENGTHS 


Xuew INTRINSIC TYPES wae 


INTEGER INTTYPE, REALTYPFs Al FATYPEs CHARTYPEs BOOLTYPEsNILTYPFs TEXTTYPED | 


INPUTFILF sOUTPUTFILFsFMPTYSETS 
ROOLFAN INPUTDECL»NUTPUTNECI 3 


Zeee TEMPORARY VARTARIFS tae 


% EXTERNAL FILES. 
% FILES IN USF. 


% RECORDS FRROR MESSAGES. 


10151000 
10152000 
10153000 
10154000 
10155000 
10156000 
10157000 
10158000 
40159000 
10160000 
10161000 
10162000 
10163000 
10164000 
10165000 
10166000 
10167000 


ers 


Heed Gein, ene + - 


ett 


2 @ 


Pin 


INTEGER Tis T2oT3eTaeTS3 


10168000 

10169000 

Keke ATHER VARTARBLFS wae 10170000 
ALPHA USER3 y THE USER NUMRFR FOUND ON THE USER CARD.10171000 
- 10172000 

TNTEGFR CURLEVFI » ¢ CURRENT PROCFOURE LEVEL. 10173000 
TNPLEVFL » vy TOP LEVEL IN DYSPLAY VECTOR. 10174000 
NUMBEGINS» y NUMBER OF "BEGIN"S IN THE PROGRAM, 10175000 
NUMCASFS» v NUMBER OF CASF*STATEMENTS YN PROGRAMe 10176000 
NuMREPS, y NUMBER OF REPFAT@STATEMFENTS IN PROGRAM, 10177000 

NUMTEMP Ss y NUMBER OF TEMPORARY VARYTABLES TN USE, 10178000 
CURFUNC, ¢ INDEX OF FUNCTION CURRENTLY COMPILFD. 10179000 

CURSYs | y LAST SYMBOL READ BY SCANNER, 10180000 
CURTYPF, ¢ TYPE OF ENTITY LAST COMPILED. 10181000 
CURMNDE, ~ CURRENT EXPRESSION MODF. 10182000 
LASTREC} w LAST RFCORD TARLE DEFINED. 10183000 

seks. a = 10184000 
LABrL pNDOrINPUTS 10185000 
. ‘3 10186000 
FORMAT NOERRORS CONN FRRORS DETFCTEDe%)» 10187000 
FRRARS C15." ERRORS DETECTED" )» 10188000 

ALYST ("$ SET LIST SeNGLE")s 10189000 

NOAL IST (€"$ RESET LYSTw)>» . 10190000 
LASTLINE ("$ TERMINATES END OF PASCAL PROGRAM," ), 10191000 
TERMMESS (Cl ewee ENReIPATNPUT 6 COMPYLATION TERMINATED "93 10192000 
MONITOR EXPOVRteREALOVEREL NW? 10193000 
10194000 

Ewes SCANNER SYMBOLS #ee . 10195000 
DEFINE INFNTIFIERS {ty INTCONGTa2#, REALCONST#3#5 ALFACONST=4#, 10196000 
CHARCONST2=5#, NOTSYaadts ASTFRISKS7#>» SLASH®B#s 10197000 
ANDSY=9#,  DTVSYEsO#s MODSYR 414 #>» PLUS#12#>» 10198000 

MYNUS2@4 3H» ORSYatnds LSSSYs45#s LrQSYs16%> 10199000 
GFQSy=47#, GTRSY=yAH, NEQSy=19#, FOLSy=20#, 10200000 
INSY=24#, LPAR=29#» RPARa23#>» LBRACKET#24#, 10201000 
RRRACKFT=25#, DOURLERNT=26%, COMMARO7#Ss SFMICOLON®2B#>» 10202000 

ONTs20#>» ARRMWaa08» COLON=31 #5 ASSTGNSY=32f, 10203000 
RFEGINSY333#>5 ENNSY™ 34%» IFSYm35#>» THENSY*36#>» 10204000 
FLSESY=37#, CASFSY=3A#» OFSY"39#» REPEATSY=40#, 10205000 
UNTILSY=41#>5 WHT ESv=42#, DOSY=43#>» FORSYSUUHs 10206000 
TNSY24q5#, NOWNTOaYe46#s GOTOSY=47#, NILSY@4BHs 10207000 
TYPESYs49Ot, ARRAYSy350#» RECORDSY35145 FILESYS52#>» 10208000 
SFTSY253#, CONSTSy=54#>» VARSY=55#>s LABEL SY=56#,» 10209000 
FUNCSY&57#_ PRIPSYeS8#» WITHSYS59H >» PROGRAMSY=60#>5 10210000 
PACKENSY=61#3 10211000 

. 7 10212000 

DFFINE INITIAL an#, MINNLF wis TERMINAL a OF} 10213000 
DFFINEG NUMBEREO#s RAITPATTFRN@ IWS 10214000 
EY RLE AEA EA KLEE LAKE LA LEAK ao LLL EALAL LALLY KAKA LVL ARKH LALA LL KH HLL HYD 0004 000 
» 4 %20002000 
% %20003000 
¥ : %20004000 
% PART 23 CamMPILER UTILITY ROUTINES. %20005000 
z Se Spee ete Ree ans Reeseeia sas %20006000 
x 220007000 
% *20008000 
bf %20009000 
TET T CITI ETT ETT LETT TTT TTT TTTTTETUTTTTT LETT TET TCL T TET TUTTE TTTT TET TT EET OTT 
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PROCFNURE TNSYMAOLS FORWARD? 

PROCFOURE WRITFALGNL 3 FORWARDS 

PROCFNURE NEWXREFCNAMPS sNAMF 2» TARLEsDFCL)3 
VALUP NAME 1s NAME2s TARLEs AEC: 3 

RFAL NAME1s» NAMF23 

INTEGER TABLE} 

BOOLFAN OFCL3 

FARWARN3 


DPFINE NOTGITS¢CND= 
IF Né¢ 9 THEN { FLSF 
IF N<O9 THEN 2 FLSFE 3 nTGITS#3 


DFFINEG HEANTNGs 

BFGYN COMMENT wee PRINTS A WEARTNG ON TOP OF A NEW PAGE. 3 
PAGFCNTIEPAGECNT#493 
RFPLACF POINTERCHFANTEY TE #9 9485 BY PAGFCNT FOR NDIGITSCPAGECNT)3 
WRITECLINESCPAGEI 93. 
WRITECLINESPDRLJ9141,HEANTEVTC#))3 
LYNFCNT2 2903 

FND nF HEANTNGS3 


DFFINE PRINTLINGS y**x* PRINTS A SOURCE COOF LINE. 
BEGIN 

REPLACE LINEPNT#B RY CARNCNT FOR § NIGITS3 

TF CINFCNT>1 INFSPFRPAGF THEN HEADINGS 

TF RESWORONPTION THEN 

RFGIN 

WRITECLINFSENOIs44 5X! TNE eT )3 

— WRITECLINESENOD 14 0X1 TNE al 3 

FNIN3 

WRITECL INES, 17% LINE #e1)3 

LYNECNTSeLINECNT4 973 
END AF PRINTLINEG #3 


NEFF INF NEWCARD= Yaee REANS A NEW SOURCE CADE CARD. 
BEGIN, . ee ee idee oe 
Tr LISTOPTION THEN PRINTLINGES 
TF FRRINX>Q THEN PRINTFRRMASS 
RFANCCARDs 10s TICARNC #1) FENROF INPUT 
CARDPNTIMPOTNTFROICARD 3): 
RFPLACF LINFPNT BY CARNPNT FOR 10 WORDS» * * FOR 6 WORNS3 
REPLACE X¥LINEPNT aY " * FOm 10 WORDS; 
CHARCNTEZCARDLENG TH? 
MARGINCNT#s88) 
CARNDCNT HBC ARDCNT413 
FND#S 


DFP INE GENCTsNsSTART je Yeee GENERATE A TEXT "Ts CONSISTING OF 
RFEGIN vane ON" LETTERS» STARTING AT "START", 
TF ALGNLENT<N THEN WRITFALANL3 
TEYyTCOATs 


20011000 
20012000 
20013000 
20014000 
20015000 
20016000 
20017000 
20018000 
20019000 
20020000 
20021000 
20022000 
20023000 
20024000 
20028000 
20026000 
20027000 
20028000 
20029000 
20030000 
20031000 
20032000 
20033000 
20034000 
20035000 
20036000 
20037000 
20038000 
20039000 
20040000 
20041000 
20042000 
20043000 
20044000 
20045000 
20046000 
20047000 
20048000 
20049000 
20050000 
20051000 
20052000 
20053000 
20054000 
20055000 
20056000 
20057000 
20058000 
20059000 
20060000 
20061000 
20062000 
20063000 
20064000 
20065000 
20066000 
20067000 


® © 
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te 
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END #S 


REPLACE ALGNLPNTIALGOLPNT AY TEXTPNTOSSTART FOR NS 
ALGOLCNTISAL GOLCNT#NS 


DFF INE GENTDOCL sNUMsNDTGS® yuee GENERATE AN XALGOL INMENTIFIFR. 
BEGIN 
TF ALGOLENT<NDTG THEN WRITRALGOLS 
CHEOItsL3 
REPLACE ALGOLPNTIALGOLPNT aY CHARPNT FOR ts NUM FOR NnIG pIGITS3 
ALGOLCNTIsal GOLCNTENDITGal) 
ENDS? 


INTEGER NARSSNSTZES 


MFFINE GENINTEN)® 
BEGIN. 3 
NARSHESABSENSS TF NeO THEN GENCh@"s1e7)3 
NSTZEteIF NABS< 9 THEN 1 ELSE 
TF NARS 999 THeN 3 ELSE 
TF NABSS 99999 THrn 5 ELSE 
IF NABS€¢99999999 THeN 8 ELSE 123 
TF ALGOLONT «NST ZE THEN WRITFALGOLS 
TF NSI7E212 THEN pcees 
RFPLACF ALGMLPNTSALGOLPNT aY CNABS DIV 1000000) FOR 6 NIGITSs 


FNTYFRENABS MOD 1000000) FOR 6 MIGITS ELSE 


REPLACE ALGALPNTIALGOLPNT wY NABS FOR NSYZF DrerTss 
ALGOLCNT#eAl GOLCNT#NSI7F3 
FND MF GENINT#S 


PROCENURE GENRFAL(CK)3 
VALUF yw~3 RFAL X3 
BEGIN 
REAL ABSY3 
INTEGER POWERS VisV23 


tp X.046253=0 THEN 
BEGTN 
TF ALGNLCNT<9 THEN WRITFALANLS 
TRXTCOTIeKXs saat on 
RFPLACF ALGALPNTSZALGOLPNT AY ""%s TEXTPNT FOR 7s Wey 
ALGOLCNT#mAl GOLCNT©OS 
ENN FLSE 
BEGIN Sa 
YF ALGNLONT<22 THEN WRITEA GOL 3 
YF Xx<O THEN GENCE 99,2493 
ARSXIRABSEXY3 
TF. ABSX>0 THEN 
RFGIN 
WHILF ABSxX21@7 DN RFGIN ABSX#BARSX/103 POWERS sPOWFR+e1 END3 
ee ABSx<1®6 no BFGATN ABSX!# SABSXX103 POWERS sPOWFR« ENDS 
VITMENTIEROARSY 93 
VOIRENTIFROCABSX=V19%1009000)3 
REPLACE ALGOLPNTEALGNI PNT BY Vi FOR 7 DIGITSs “.">5 
V2 FOR 6 ATGTTSs» "a3 


20068000 
20069000 
20070000 
20071000 
20072000 
20073000 
20074000 
20075000 
20076000 
20077000 
20078000 
20079000 
20080000 
20081000 
20082000 
20083000 
20084000 
20085000 
20086000 
20087000 
20088000 
20089000 
20090000 
20091000 
20092000 
20093000 
20094000 
20095000 
20096000 
20097000 
20098000 
20099000 
20100000 
20101000 
20102000 
20103000 
20104000 
20105000 
20106000 
20107000 
20108000 
20109000 
20110000 
20111000 
20112000 
20113000 
20114000 
20115000 
20116000 
20117000 
20118000 
20119000 
20120000 
20121000 
20122000 
20123000 
20124000 


i 
| 


1 
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> 


i 


ALGALCNTI@ALGNLONT#153 
TF POWER<O THEN GENC%@ "sr 5793 


POWERIsZABSCPOWFER)3 
REPLACE AI GOLPNTEALGMI PNS RY POWFR FOR 2 DIGITS3 


ALGOI CNTESALGOLCNT=23 
FND ELSE GENC"O"%s 19793 | 
TE X<0 THEN GENC™9%,15793 
Enns 
END MF GENREAL3 


INTEGER TYPEINDFX3 


OFFINE NEWTYPEs 
BFGYN 


°20125000 


20126000 
20127000 
20128000 
20129000 
20130000 
20131000 
20132000 
20133000 
20134000 
20135000 
20136000 
20137000 
20138000 
20139000 


TE NUMTYPES>MAYXYTYPFS THEN RFEGIN FRRORCAS)INUMTYPESE @MAYTYPES#@2n END3 20140000 


TYPEINNEX! 2NUMTYPFS$ =NUMTYOFS413 
FND #3 


PROCFNURE WRITFALGNLS veew WRITES A COMPLETED XALGOL CARD TO 
BEGIN veee THE FILE. 
RFPLACF POINTERCALGMLCARD[O)) BY CAROCNT FOR & DIGITS3 
WRYTECPASCAIGOL, 10sALGN| CADNE*3)3 
1F DUMPOPTYAN THEN WRITECL NES» 10s ALGOLCARNE*))3 
ALGOLPNTISPOINTFEREALGOL CARRE #123 ALGOLCNTI#743 
RFPLACE ALGMLPNT RY * * Fin 9 WORDS} 
FND AF WRITEALGALS 


DEFINE MARGINCLETTFReNUMD® 
BEGIN COMMPNT we* PLACES INFORMATION IN THE MARGIN. 3 
TF MARGINCNTS118 THEN 
RFGIN TEXTEOIISLETTERS ~ 
RFPLACE LYNFPNT+MARGYNCNT BY TEXTPNT#5 FOR 2¢ 
NUM FOR NOIGrTSCNUM)S 
MARGINCNTESZMARGINANT&G3 
FNINS 
FND NF MARGINS? 


PROCFMURE SKIPCSYMADL 3 weee SKTP SYMBOLS TO RECNVER FROM ERROR 
VALUF SYMBOLS YNTEGER SYMAMI 3 ewes CONDITION. 
RFGIN. . 

WHILE CURSYZSYMROL ANN SYMZTNDECURSYIEMINOLE DO 

TF CURSY@RECORNSY THEN _ 

RFGTN MO BEGIN TNSYMADI $ 

SKTPC9ODS 
FNOD UNTYL CURSYZSFMIFOLON ANN CURSYZCASESY3 
FNM ELSE INSYMROL S$ 


END AF SKIPS 


PROCEHURE. FRRORCERRNUM)S 

VALUF FRRNUMS INTEGER FRRNUMS 

BFGIN COMMENT wa ARRANGE FRRO® INDICATOR, 3 
NUMERRS?sNUMERRS 443 


20141000 
20142000 
20143000 
20144000 
20145000 
20146000 
20147000 
20148000 
20149000 
20150000 
20151000 
20152000 
20153000 
20154000 
20155000 
20156000 
20157000 
20158000 
20159000 
20160000 
20161000 
20162000 
20163000 
20164000 
20165000 
20166000 
20167000 
20168000 
20169000 
20170000 
20171000 
20172000 
20173000 
20174000 
20175000 
20176000 
20177000 
20178000 
20179000 
20180000 
20181000 


wig 


2 © 
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> 


FRREERRNUMILeTRUFS 

FRRINXtEMAYCERRINYX Ss CARN ENeTH@2=CHARCNT D3 

TF FRRINXS115 THFN 

RFGIN PFPLACE POTNTFREFRRE PNEC LY #ERRINX BY "xt, 

FRRNIM FAR NATGITSCERRNUM)3 
FRRINXSEFRRINKOCTE FRRNUMS 9 THEN 2 ELSE 
TE FRRNUMS99 THEN 3 FLSE 493 
FND FNN OF ERRORS 


PROCPNURE PRINTERRORS3 
BFGTN COMMPNT we* PRINT FRRAR INDICATORS, 3 
TF NOT LISTNPTION THEN PRINTLINES 
WRITEC! TNESs 1 7sFRALINE SHI)? 
LTNECNTESLENECNT+!3 : 
RFPLACF POYNTFRCFRRL INE Pid, BY * * FOR 16 WORDSS 
FRRINX Iw) 3 


END AMF PRINTERRORSS 


DEFINE HASHCN) 2» (N).°3513617 Man MAXNAMES#S3 


TNTEGFR THYSLEVELs THISTARS THIS PNNEXS 
ALPHA THISTDsTNAME3 
BNOLFAN FOUNDS 


OFF INE SEARCHTARCTARB = wees SEARCH NAMF TABLE "TABM FOR THE 
BEGIN Lane IOENTIFIER JUST REAN, 
THISTNDEX#=HASHOCURNAME! 93 
TNAMPR BNAMETARTPTARSTHIS#NNEX IS 
WHILE CIF TNAMFsCURNAME THEN NAMETARSETABsTHISINDEXTSCURNAMES 
FLSE TNAME#0) nn 
REGIN 
THYSINMEX 8 arr THISTNDEVaO THEN MAXNAMFES ELSE THISINDEX=13 
TNAME Sen AMETARIPT TAR, THYSINDEXS3 
PND3S. 
FOUNNRESTN AME ZSO3 
Te XREFOPTION THEN ee 
YF FOUND THEN NFWXREFOCHRNAME Ls CURNAME2 sTARSFALSE)DS & 
END nr SEARCHTAAS? 


DEFINE SEARCHe 
BFGIN 
THYSLEVEL t2TOPLEVFL 4! 3 
An BEGIN 7 
THISLEVEL? 2 7HY SLE VFL@143 
THISTABterF THISLEVFEL<CURPLEVEL THEN THTISLEVEL 
ELSE NISPLAYCTHISLEVELI.NAMETABS 
SFARCHTARCTHYISTAR)$ 
FNN UNTIL FOUNA OR THIS! EVeL=03 
PHT STD psNAMFTARSPTHTSTARS TUTSINDEXI3 
FNO MF SEARCH #3 


DFFINE NEWNAME CNAMFY » NAME 25 TAR 9 2 
BFGIN Meee FNTER A NEW NAME INTO THE NAME TABLE "TAB", 
THISTADEXSSHASHONAMFS 93 


vee SEARCH ALL TABLES CURRENTLY IN USE, 


20182000 
20183000 
20184000 
20185000 
20186000 
20187000 
20188000 
20189000 
20190000 
20191000 
20192000 
20193000 
20194000 
20195000 
20196000 
20197000 
20198000 
20199000 
20200000 
20201000 
20202000 
20203000 
20204000 
20205000 
20206000 
20207000 
20208000 
20209000 
20210000 
20211000 
20212000 
20213000 
20214000 
20215000 
20216000 
20217000 
20218000 
20219000 
20220000 
20221000 
20222000 
20223000 
20224000 
20225000 
20226000 
20227000 
20228000 
20229000 
20230000 
20231000 
20232000 
20233000 
20234000 
20235000 
20236000 
20237000 
20238000 
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TNAMF ESNAMETABI TABS THISPNDEXYS 20239000 

7 WHILPCTF TNAMP@NAMFY THEN NAMETAR2CTABs THISINDEXIEN AME? 20240000 

{ FLSe TNAME¥O) DO 20241000 

S REGIN 20242000 

THISINDFXIS7F THISTANEYSO THEN MAXNAMES ELSF THTSINDEX@13 20243000 

 TNAME ten AMP TARY PETAR, THY SINDEXT3 20244000 

) FND3 20245000 

TF TNAMEZO THEN FRRORC2)¢ 20246000 

NAMETABICTARs THTISTNDFY IS aNAME 13 20247000 

® NAMPTAB2C TABS THISTNNFEY] faNAMEQS 20248000 

TE YREFOPTION THEN NEWYREF NAME 1 »NAMES 5 TAR» TRUE DS 20249000 

FND MF NEWNAME #3 20250000 

r 20251000 

a aed A _ 20300000 

PROCFNMURE INITTALIZFS3 Zwee TNITIALIZATION wee 20301000 

'@ BEGIN Gee keene ekkheebheken 20302000 

INTEGER T1sT33 20303000 

ALPHA A3 20304000 

@ FTLL SYMKINAC#) WITH DReMIRDLE) » TERMINAL sOCMIDDLE) » INITIAL» TERMINAL » 20305000 

TNITTAL »MTDDLFoTFRMTNAL otNITIALsMIDDLEs INITIAL» TERMINALS INITIALS 20306000 

MIDDLESINTITIAL sACMTNNI EX. INITIAL sMIDOLE s INITIALS 4CMINDLE D» 20307000 

@ 7CINTTIAL 9sMTDNLFS 20308000 

| 20309000 

FYLL SYMBOL? #) WITH 1069) ensARROWs Or COLONS GTRSY »GEQSY »PLUS»9(0)> 20310000 

‘@ NOT I BRACKET sANDSYsL PARs|. SSSY»ARROW 209960) 202 ASTERISK »MINUS» 20311000 

RPARsSEMICOLANSI FOSYsMeSi ASH2B8C0)2COMMAs Os NEQSYsFOLSYsRBRACKET»s 20312000 

OesDOUBLENNTS 20313000 

e - 7 20314000 

LTNEPNT f@PNINTERELINE T1793 20315000 

YL TNEPNTISSPHINTER ONL TNE L393 20316000 

e@ RFPLACF LINFPNT#=a RY * => "» * * FOR 44 WORDSS 20317000 

REPLACE XLINEPNT#A RY 7" FOR 11 WORDSS . 20318000 

REPLACE POTNTERCFRR] TNFR #Y) BY “ekaw ", " * FOR 16 WORDS3 20319000 

@ ALGOLPNTIt@PNINTFREALGOL CARNE #I)3 ALGOLCNTIR743 20320000 

REPLACE ALGALPNT RY " * FOe 9 WORDS 20321000 

CHARPNTPEPOTNTER(CHEH1)E7S 20322000 

@ TEXTPNTSEPOYNTFRETEXTE wo) )o03 TEXTPNTOERTEXTPNT@S$ 20323000 

REPLACE TEXTPNT BY © * FOR 153 20324000 

STRINGPNTISPOINTFRESTRINGC a 193 20325000 

@ RFPLACF POTNTERCHFANTEyTC*#9) BY * * FOR 10 WORDSs "PAGE "y 20326000 

REPLACE POINTERCHFANTFYT( #1) BY PASCAL (, EDITION, "9/B=5700"3 20327000 

TEXTCOSLETIMECS 3 20328000 

@ REPLACE POINTERCHFANTEXTE #99445 BY TEXTPNT+3 FOR 25 ‘7%, 20329000 

__TEXTPNT4+! FOR 25 "/", TEVTPNTS5 FOR 23 20330000 

TY taTIMEC19/36003 20331000 

e REPL ACF POINTERCHEANTEXTE #1 457 BY (T1 NIV 60) FOR 2 DIGITS» "EM, 20332000 

_ FNTTERCTY MOM 60) FOR 2 nTGITS3 20333000 

HEADINGS 20334000 

e | : | 20335000 

Sees INITIALIZE INTRINSTC FYPESs CONSTANTS ETC, wee 20336000 

20337000 

@ YNTTYPEteT3ssi3 | Sees “INTEGER” eee 20338000 

TIiteNUMERICS T1.ST7Ft273 TISTRUCTESOS 20339000 

TYPETABICL 392715 TYPFETARQF1IEM@MAXINTS TYPETAB3C1 19 @MAXINTS 20340000 

@ NFWNAMFC"TENTEGEMS9R,093 TRI, IDCLASSEmTYPESS 20341000 

NAMETARSLOsTHISTINOFYI taT 33 20342000 

e REALTYPEIaT3t=03 Xeew “REAL ae 20343000 
@ 


i 
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TILFORMEBFLAATINGS TYPFTARIC2I)¢aT43 
NEWNAMFC"GOOREAL s0,095. Ta. TDCLASSt@TYPFS} 
NAME TAR3C Os THISTNDEX 1 8a7 33 
ALFATYPE t= 731233 

Ti. SFORMIEALFAS TYPFTARIC312eT 13 
NEWNAMFCAGOOALFA» 0093 Ta, TDCLASSt=TYPFS$3 
NAMETAR3POsTHISINDEY Ite 35. 
RNOLTYPEterai=a3 Seae “ROOLEAN” wae 
T1.FORM!@SYMBNLIC3 TYPFTARICGIS@T13 TYPFTAB3CAII213 
NEWNAMPC"’™Z7RAOLFAMS INS 093 TI.IOCLASSS#TYPESS 
NAMFTAR3¢ Os THISTNNF XI t27 33 

CHARTYPEt=T3t253 Lane CHAR wow 
T1.FORMisCHAR? TYPFTART CS aie i3 _ TYPETAB3°5129633 
NFWNAMFCPAOOCHAR",0,0)% Ta. TDCLASS#=TYPESS 
NAMPTAR3COsTHISINOFYD ta7 33 _ 


Rewe “ALFAY eae 


TItsBOn, TYPE T3. TNCLASS#aCONSTS Seae oF A SEW wae 
NEWNAMFC™5OFALSE 50, O33 NaAMETAB 30 Os THISINDEX) £27 33 
TI.INFota13 Seen “TRUE” wee 


NEWNAMFC™GOOTRUF 20,093 NaMETAB3COsTHISINNEX] £m 733 
NUMTYPFS tas 3 

NTL TYPRt me] 3 %ewe TYPE OF "NIL aoe 
FMPTYSFTItz@ 93 ; Zeee TYPE OF [J] tes 

NEWNAMF CM OMAXINT™ 50, 093 TarmINTTYPES Zeke OMAYINT™ ew 
T3, TDOCLASS!#aCONST} 73. LINFatet0243 

NAMFTAR3COsTHISTNOFX]taT33_ 

NUMCONSTS# 243 CONSTTARFS Je @MAXINTS 


T3220} T3LINCLASS#ESPROGS Reee PROCEDURES «es 
FAR Ate"30NNGET%s, "3000NEWHs "AOOPACK", "GOOPAGE%s "3000PUT"s 

| "HOOREANs “ARFAMLNeGs "SORESET™s "4UNPACK"» "SOWRITE™ ON 
RFGIN :: 

NEWNAMF(As09093 NAMETAR3COsTHISINDEX T1287 33 

FND3 
NFWNAMFC*7NYSPOS",» MEMS ANY NAMETAR3COsTHISTNDEXI1227 33 
NEWNAMFC"7REWRITY SENS O93 NAMETAB3LOsTHISTNOEXIS=T 3S 
NEWNAMEC™7WRITEL SNS O93 NAMETAB3ILOsTHYISTNDFXI2=733 


T3.TOCLASSt=FUNCS ; Seee FUNCTIONS wee | 
FAR Atm"3000ARS™s "KARCTAN*s "3000CHR"s "3000COS"s "30N0FOF"s 
"AOOFOLN'» "300NF XP. “20000LN"s "300000N"s» "4ONPRED"» 
"HONSUCE™s "BORMINDs "3000SIN's *"3N00SQR"» "400SQRT"» 
“BOTRUNC's "ACONCAT#s “4OOTIME%, "AHOODATE™s "OTOTIMEs 
"GOOUSER™s "3000ARH« 
nn REGIN . 
NEWNAME ¢As0s093 NAMFETARZFOsTHISINDEXI28T 33 
FN} 
NEWNAMEC’ 7F) APSE." %5 093 NAMETAB 3f Os THISTNDEXI IST 33 
NEWNAMFC*PWEEKM AM SY", 093 NAMETABSILOsTHISINDEXII=T33 


TEXTTYPE SS TIIENUMTYPES t@NUMTYPESS$4 3 Sean “TEXT” cae 


TT. J'= TEXTPILES TI, STRUCT tz 13 TYPETARICTEXTTYPF) t= T13 % 


13. TOCLASS :@ TYPFS} &% . 
NEWNAMEC™AONTEXT 205098 NAMFTAB 3LOsTHISINNEXI #87 33 
TAreTEXTTyPFS 13, INCLASStaVARS Seen "TNPUT" tee 
TILEXTPRNALFILFted3 - 

NEWNAMFC*SOTNPUT' sO, 2093 INPUTFILE Se THISINNEXS 
NAMETAR3C Os THISTNNE YX) taT33 


20344000 
20345000 


20346000 | 


20347000 
20348000 
20349000 
20350000 
20351000 
20352000 
20353000 
20354000 
20355000 
20356000 
20357000 
20358000 
20359000 
20360000 
20361000 
20362000 
20363000 
20364000 
20365000 
20366000 
203467000 
20368000 
20369000 
20370000 
20371000 
20372000 
20373000 
20374000 
20375000 
20376000 
20377000 
20378000 
20379000 
20380000 
20381000 
20382000 
20383000 
20384000 
20385000 
20386000 
20387000 
20388000 
20389000 
20390000 
20391000 
20392000 
20393000 
20394000 
20398000 
20396000 
20397000 
20398000 
20399000 
20400000 


i A i : i a i ‘ - i 
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NEWNAMFEC™A0UTPUT sO, Oo Zewe “OUTPUT” wee 
NAMFTAR3£ Os, THISTNNE YI] 8 a733 OUTPUTFILE te THISINDEX3 
FND ME YNTTAL ITZ 


Xete YREF ROUTINES eee 
Lee kheaekekaeteeeeaee 


NFFING YREFCARNSCIA68171%> 
XREFBLOCKEL 26110183 

REAL. AOsBOsAL SAT >LASTAOSLASTAL? 

INTEGER NLsLASTRLOCKs AD, ANS 


PROCFNURE NEWXREFONAMFY »NAMP2y7ABLEeDECL DS 
VALUF NAME (4 sNAMF 2s TARLE ODEO! 3 
REAL NAMEL,NAMFOS 
INTEGFR TARLES 
BOOLFAN DECL?3 
BEGIN 
NL taNAMFEY .NAMELENGTHS 
YF NL¢€? THEN NAMFPIPSORNAMESPAIEGI 26 ANAM YC 3St6XNL@ 1 S6XNL J 
ELSF NAMF?9tSORNAME5P3536X¢(NL@ GI"LIBKOCNL@BD TE 
AXEMCARDCNT} AX sXRFFALMCKssBLOCKTABETABLFD3 
TF MECL THEN AXt@AX=100N00R000003 
WRITE CYREFFE TLE peo NAMF 4 pNAMP OS AX D3 
FND mF NEWYREF3 


PROCFMURE YREFMAXCA)3 
ARRAY aAfog} 
RFGIN te ox, 
AFOVS a" AZ7777Z7%3 Arilts"Z797Z7Z7Z"3 Al212299999999993 
FND MF YREFEMAX$ 


BOOLFAN PRACEDURE XRFFCNMPARE(AsB)3 
ARRAY A,BtOT} 


BFGIN ot os stds 
AQOHRALOIS ROMBrols AttUwmariy3 RBitzBriy; 
YRFFCOMPARF 32 


Te AO, C35983461¥%A0, F383367 THEN AQef 353361<AN.f 35136) ELSE 
TF AL¥B1 THEN A1<RY ELSF 
TF AOZRO THEN AN.NAMFLFENGTU<BOeNAMELENGTH ELSE 
AT?) LFQ Bfel3 
END AF YREFCNMPARES 


PROCFNURE PRINTYREF CFINTSsA)3 
VALUE FYNIS) RNOLFAN FINTS? 
ARRAY aArfOls 
BFGIN 
YF FINTS THEN 
RFGIN 
WRITPCLINES# 1 7eXREFLINEL S193 
CLOSFELINES)3 
CLOSFCXREFFILE)3 
PND 


20401000 
20402000 
20403000 
20404000 
20500000 
20501000 
20502000 
20503000 
20504000 
20505000 
20506000 
20307000 
20508000 
20509000 
20510000 
20511000 
20512000 
20513000 
20514000 
20515000 
20516000 
20317000 
20518000 
20819000 
20320000 
20521000 
20522000 
20523000 
20524000 
20525000 
20526000 
20527000 
20528000 
20529000 
20530000 
20531000 
20532000 
20833000 
20534000 
20335000 
20536000 
20537000 
20538000 
20339000 
20540000 
20541000 
20542000 
20543000 
20344000 
20545000 
20546000 
20347000 
20548000 
20549000 
20550000 
20551000 
20552000 


Lo, 
4 


wus ue 


t 


” 


> 


FLSE 
RFGYN 
AntsxAoi AltaArii} A2QsaAr2y3 
TF AQ@LASTAO AND AML ASTAN AND A2eXRFFALACKSLASTBLOCK THEN 
REGIN 
If NUMXREF S15 THEN 
BEGIN 
WRITE OLINES» 1 7sXRFFL INE LOI) 3 LINECNTI=LINECNTS43 
TF LINECNT>L TNESPFRP AGE THEN HEADING3 
YREFPNTIMPOINTEREVREELINEL #193 NUMXREF t23 
RFPLACE YRFFPNT AY * * FOR 17 WORDS; XREFPNTISXREFPNT+243 
ENA} 
REPLACr XRFFPNT BY A2.yvREFCARD FOR 5 wmTGITss 
XREFPNTISXRFFEPNTS7 3 NIMXREF S sNUMXREF 493 
FND FLSE | 
TF A?<0 THEN 
REGIN 
A21eA241000000000003 
WRITECLINE Sot 7eXRFFI INET #9) 3 ee ee 
YRFFPNT?=POINTEROYREFLYNED #3 Naeeenee 
REPLACE XREFPNT By » * FOR 47 WORDS} 
TEXTLO IZA, r3883633 LASTAO!@AO$ 
REPLACE XRFEFPNT RY TEXTPNT #1 FOR AO.NAMELENGTH3 
TEXTCQIESLASTAIIEATS 
IF AQsNAMELFNGTH>6 THE s: 
REPLACE XRFEFPNT46 RAY TEXTPNT+$ FOR AO.NAMELENGTH@63 
REPLACE XRFFPNT+17 RY ADe XREFCARD FOR 3 DIGITS3 
XREFPNTIeXREFPNTs243 | ASTBLOCKI#A2,XRFFBLOCKS 
 FNDS 
PNA} 
END AF PRINTYXRFEFS 


INTEGER TTyoTTOeF {oF OoLTaRT? 
DEFINE CHECKTYPESCLFFTTYPF sRIGUTTYPE)= 
BEGIN 


TF LEFTTYPF>O AND RYGHTTYPe>0 THEN 
TF LEFTTYPFZRIGHTTYPE THEN 


REGIN 
LTSSLFFTTYPES RTteRIGHTTYPES 
TTL Ma TYPFTARIFLT TT2:aTYPETABICRTI3 
Fiterti  eARMs F2taTT2.FORMS 


TF LYZREAI TYPE OR FOeNUMERIC THEN 
YPCFUseSET ANN LT#EMPTYSE TOR (F 2¢ SET AND RT#EMPTYSFE TY THEN 
TRCUFCZPOINTERS ANN L TENT: TYPE ORCF2ZPNYNTERS AND RTZNILTYPE THEN 


REGIN 

IF FiwsSFT ANN PosSrT TUFN 

BEGIN 
LT@=TTi, SETTYPFS RT@eTTO SETTYPES 
TTPeTYPETARIFLT TT2tSTYPETARICRT 33 
FiteTTi, FORMS F2teTT2,FORM) 

ENN 

IF Fi=PNINTFERS AND F2eeNnINTERS THEN 

BEGIN 


20553000 


20554000 
20555000 
20556000 
20557000 
20558000 
20559000 
20560000 
20561000 
20562000 
20563000 
20564000 
20565000 
20566000 
20367000 
20568000 
20569000 
20570000 
20571000 
20572000 
20573000 
20874000 
20575000 
20576000 
20577000 
20578000 
20579000 
20580000 
20581000 
20382000 
20583000 
20584000 
20585000 
20800000 
20801000 
20802000 
20803000 
20804000 
20805000 
20806000 
20807000 
20808000 
20809000 
20810000 
20811000 
20812000 
20813000 
20814000 
20815000 
20816000 
20817000 
20818000 
20819000 
20820000 
20821000 
20822000 
20823000 


' : A 7 : . + - e . ‘ A 


» © 


od 


1 


LTI2TTLSPOINTTYPES RTtaTTO.POINTTYPES 
TTLIeTYPETARIPLTN3 TTOtaTYPETABICRTI3 
FiterTTi, FORMS FereTT2,FORM3 
ENN3 
WHILE FY =SUBTYPF nn ; . 
BEGIN LT#=TTI.MAINTYPE: TT1teTYPETABICLTI2 F1teTT1.FORM FND3 
WHILE FoasSuBTYPF nn 
REGIN RTtstTT?2, oMAINTYPES TT2teTYPETABICRTI$ FOsetTtT2.FORM FND3 
IF LT>0 AND RTO THEN 
IF LTFRT THEN 
IF FYFNUMERTC OR FOsNUMERTC THEN 
IF FIYCHAR OR FOXCHAR FHEN ERRORCI7)93 
PND 
PND} 
END mF CHECKTYPFS#3 


INTEGER FILENAMES 
BOOLFAN LPARFOUND3 
MEF ING FILFPARAMCDFFAULTFYL &)aeeee CHECKS THE FIRST PARAMFTER TO SFE 
BEGIN yews IF 17 IS A FILE. 
INSYMBOLS FILFNAMFISCURTYPE? 203 
LPARFOUND t2CURSYSLPARS 
TF LPARFOUND THEN 
RFGIN ; 
INSYMROL 3 sa 
TF CURSYSTDENTIFIFR THEN 
REGIN 
SFARCH3 
IF FOUNN THEN 
BEGIN 
TF THYSTN.INCL ASSaVAR THEN 
REGIN 
CURTYPFISTHTSIN. TYDF} 
IF TYPFTARITCURTYPe.FORMPFILES THEN 
BEGIN 
FILENANF I= ONNXTHISLEVEL +THISINNEX 
TNSYMBOL $ 
FND FANN END ENDS 
YF SYMKINAECURSYJ@TFRMINAL THEN FRRORC46)3 
PNM} 
TF FILFNAMF&O THEN FILENAM@SMDEFAULTFILES 
TF CFYLENAMPRINPUTFILE AND NOT INPUTDECL) OR 
CFYLENAMFROUTPUTFILFE ANn NOT OUTPUTDECL) THEN FRROREC96)3 
FND mF FILPPARAMS} 


INTEGER TFARMS 
ROOLFAN SIGNEDsNEGATIVES 


DEFINE CONSTANTCCVALSCTYPF Ia wee <CONSTANT> #46 
BFGIN Leekeeeeeweekaewkkakese 
TF CURSYSMINUS OR CURSY@PLis THEN 
RFGIN SIGNENISTRUFS NERATIVEPeCURSY@MINUSS 
TNSYMAOL 3 
FD ELSE SIGNENS=NFGATIVE $aFALSES 


20824000 
20825000 
20826000 
20827000 
20828000 
20829000 
20830000 
20831000 
20832000 
20833000 
20834000 
20835000 
20836000 
20837000 
20838000 
20839000 
20840000 
20841000 
20842000 
20843000 
20844000 
20845000 
20846000 
20847000 
20848000 
20849000 
20850000 
20851000 
20852000 
20853000 
20854000 
20855000 
20856000 
20857000 
20858000 
20859000 
20860000 
20861000 
20862000 
20863000 
20864000 
20865000 
20866000 
20867000 
20868000 
20869000 
20870000 
20871000 
20872000 
20873000 
20874000 
20875000 
20876000 
20877000 
20878000 
20879000 
20880000 


cae | 
ae) 


> 


t 


% 
% 
% 
% 
% 
% 
x 
% 


TF CURSYSINTCONST THEN 
REGIN CTYPE ESINTTYPES | 
CVAL ta IF NFGATTVE THeN =CURVAL ELSF CURVALS 
FN ELSE 
TF CURSY@CHARCONST THEN 
RFGTN TF ST@NED THEN FRRORS 2993 
CTYPE LSCHARTYPE) CVAL!@CURVALS 
FNM ELSE ; 
TF CURSYSREALCONST THEN 
REFGTN CTYPFESREALTYPE?. 
CVALe=lIF NEGATIVE THeN =CURVAL ELSE CURVALS 


FN ELSE 


TF CURSY@ALFACONST THEN 
RFEGTN TF ST@NED THEN ERRORS 2993 
TF CURLENGTH>? THEN eRRORC41)3 
CTYPFISALFATYPFES CVAL#@CURVAL3 
FNM ELSE 
tF CURSY@INENTIFIFR THEN 
REGIN 
SFARCH} . 
TF FOUND THEN 
REGIN 


YF THISTNsINCLASSACNNST AND NOT BOOLEANCTHYSID.FORMAL) THEN 


BEGIN — Sach 
TF TYPETABIFTHISTM.»TVPEJeFORMSALFA THEN 
REGIN. 
CVALISTHTISIN. INFOS 


TF eVAL>1023 THEN PVALTRCONSTTABICVAL@ "102313 


CTYPELaTHISTN, TYPE? 
IF SIGNED THEN 
BEGIN 
TFORMISTYPPTABSETHISIN, TYPE T.FORM} 


IF TFORMENUMERSC AND TFORMSFLOATING THEN FRRORC29) ELSE 


IF NEGATIVE THEN CVALIS=CVAL3 
FNM} 


FNO FILSE BFGIN FRANR?4B)3 CVALtaCTYPFI20 FND3 


ENN ELSF BFGIN FRRARC3593 CVALESCTYPES sO ENDS 

FND FLSE REGIN FRROREY)S CVALS@CTYPE820 END3 
FNM ELSE BEGIN ERRORC3293 HVALESCTYPE S20 FNDS 
TNSYMBNL3Y 


END me CONSTANTS 
LUELAULA KELLY LLL ALLL ALLA LAKH LL ALAA AULA LALLA LLL LLL LLL TAL ATL EK ALLNXX3IO00L000 


% 
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PART 31 THF SCANNER. 


INTFRNAL INTERNAL 
SYMROL NUMBER NAME 
INMENTTEIER 1 TMENTIFTFR 
122 2 INTCONST 


SYMBOL 
KIND 


MIDOLE 
MTOOLE 


20881000 
20882000 
20883000 
20884000 
20885000 
20886000 
20887000 
20888000 
20889000 
20890000 
20891000 
20892000 
20893000 
20894000 
20895000 
20896000 
20897000 
20898000 
2089900 
20900000 
20901000 
20902000 
20903000 
20904000 
20905000 
20906000 
20907000 
20908000 
20909000 
20910000 
20911000 
20912000 
20913000 
20914000 
20915000 
20916000 
20917000 
20918000 
20919000 
20920000 
20921000 


%30002000 
% 30003000 
% 30004000 
% 30005000 
% 30006000 
%30007000 
% 30008000 
%30009000 


LLELLLL ELLY LLL ALLAAH ALLAH LL LE LLLLUS LLL LY LALA LALA LLL ARK LALAKLAVHLXXX 30010000 


30011000 
30012000 
30013000 
30014000 
30015000 
30016000 
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& AND 


Lss 
LF 
Gro 
GTR 
NFO 
FOL 


weHAVVAA OD 4A + 
2 Vv Aig: ) 6D 


ae 


Peake 6 8 (8 re ee 


RFCORN 
FYLE 
SFT 
CONST 


VAR 


LABEL 
FUNCTIAN 
PROCEDURE 
WITH 


IVA 


~~ 
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REALCONST 
ALFACONST 
CHARCONST 
NOTSY 
ASTERISK 
SLASH 
ANDSY 
DIVvsy 
MODSY 
PLUS 
MYNUS 
ORSY 
LSSSY 
LEQSY 
GFOSY 
GTRSY 
NFEQSY 
FOLSY 
INSY 
LPAR 
RPAR 
LBRACKET 
RBRACKET 
DOUBLEDOT 
COMMA 
SEMICOLON 
pat 
ARROW 
COLON 
ASSIGNSY 
REGINSY 
ENDSY 
IFSY 
THENSY 
ELSESY 
CASESY 
OFSY 
REPEATSY 
UNTILSY 
WHILESY 
DNSY 
FORSY 
TOSY 
DOWNTOSY 
GOTOSY 
NILSY 
TYPESY 
ARRAYSY 
RECORDSY 
FILESY 
SETSY 
CONSTSY 
VARSY 
LABELSY 
FUNCSY 
PROCSY 
WITHSY 


MYDOLE 
MIDDLE 
MIDDLE 
MIDOLE 
MIDDLE 
MIDOLE 
MIDOLE 
MIDDLE 
MYDOLE 
MYODLE 
MIDDLE 
MYDDLE 
MIDDLE 
MIDOLE 
MIDOLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDDLE 
MTDOLE 
MIDDLE 
MIDDLE 
MIDDLE 
MYDOLE 
MIDDLE 
TERMINAL 
MYDDLE 
MTDOLE 
MIDOLE 
MIDDLE 
INITIAL 
TERMINAL 
INITIAL 
MYODLE 
TERMINAL 
INITIAL 
MIDDLE 
INITIAL 
TERMINAL 
INITIAL 
MIDDLE 
INITIAL 
MIDDLE 
MIDDLE 
INITIAL 
MTODLE 
INITIAL 
MIDDLE 
MYDOLE 
MYDOLE 
MIDDLE 
INITIAL 
INT TIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 


30017000 
30018000 
30019000 
30020000 
30021000 
30022000 
30023000 
30024000 
30025000 
30026000 
30027000 
30028000 
30029000 
30030000 
30031000 
30032000 
30033000 
30034000 
30035000 
30036000 
30037000 
30038000 
30039000 
30040000 
30041000 
30042000 
30043000 
30044000 
30045000 
30046000 
30047000 
30048000 
30049000 
30050000 
30051000 
30052000 
30053000 
30054000 
30055000 
30056000 
30057000 
30058000 
30059000 
30060000 
30061000 
30062000 
30063000 
30064000 
30065000 
30066000 
30067000 
30068000 
30069000 
30070000 
30071000 
30072000 
30073000 
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% PROGRAM 40 PROGRAMSY 
x PACKEN ai PACKEDSY 


DFFINF BLANK=4Agys FOUALR61#, QSiOTES@63#s DOLLARB42¢, 
LETTERCCIECI7«€C AND Ce2eINRC33€C AND CKc4LIORCS0eC AND C<S7)#, 


ALFANIMECCIBELFTTFRIC) Om CS9)#S 


REAL. CURVAL 3 
ALPHA CURNAME 4 sCURNAMFO,Coty?3 
TNTEGFR CURLENGTHsL_LASTCHARPNSS 
BNOLFAN FINTSS 


DEFINE NEXTCHARS 
BEGIN COMMENT #e* REAM NEXT CHARACTER. *4e 3 
TF CHARCNT=0 THEN CreRl ANK FLSE 
RFEGTN 
REPLACE CHARPNT RY CARNPNTSCARDPNT FOR 13 
— ChaCHfOls CHARCNTtsCHAPCNT@13 
FND FANN #3 


PROCFNURE TNSYMAOLS 

BEGIN COMMFNT ##* REANS THE NEvT SYMBOL. *we3 
INTEGER SCA] EsEXPS 
ANALEAN NEGEXPS 
LARFL STARTSOVFRELOWS 


STARTI - 
TF C@BLANK THEN 


RFGIN SCAN CARDPNTICARNPNT FOR CHARCNTSCHARCNT WHILE 
TF CHARCNT=0 THEN REAIN NEWCARDS GN TO START FND$ 


tan NEXTCHARS 
FNN3 
YF LETTER(C) THEN 
RFGIN eo aophids.§ 
CURLENGTH!w=43 CURNAMFEe!8eC3) CURNAME 21203 
NEY TCHAR3 
WHYLE AI FANUM(C) ANN CiRLENGTH<6 DO 
BEGIN CURNAME $f eC@CriRNAMELC35929183013 
CURLENGTHE@CURLENGTH413 NEXTCHARS 
ENN} ; 
IF CURLFNGTHe& THEN 
BEGIN 
WHILE ALFANUMEC) AND CURLENGTH<1? 00 
REGIN CURN AME 24 C&PURN AME2£ 3532913093 


CURLFNGTHE aCRLENGTH413 NEXTCHARS 


ENDS New 
WHILE ALFANUMEf) Dm NEXTCHARS 
ENny | | 
CURN AMF? sNAMFLENGTHEsCriRLENGTH3 
CASE CURLENGTH ne 
BEGIN 3 
CURSYS@INENTIFIFRE 


CURSYt8!Fr CURNAMF i=" 50000IF" THEN YeSY ELSE 
IF CURNAMF12"%50000D0" THEN MOSY FLSE 


30074000 
30075000 
30076000 
30077000 
30078000 
30079000 
30080000 
30081000 
30082000 
30083000 
30084000 
30088000 
30086000 
30087000 
30088000 
30089000 
30090000 
30091000 
30092000 
30093000 
30094000 
30095000 


30096000 
30097000 
30098000 
30099000 
30100000 
301401000 
30102000 
30103000 
30104000 
30105000 
30106000 
30107000 
30198000 
30109000 
30110000 
30111000 
30112000 
30113000 
30114000 
30115000 
30116000 
30117000 
30118000 
30119000 
30120000 
30121000 
30122000 
30123000 
30124000 
30125000 
30126000 
30127000 
30128000 
30129000 
304130000 
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CURSYe2IF 
IF 
If 
TF 
IF 
Ir 
aa 
Ir 


IF 


FE 


YF 


CURSYiRTF 
CURSYISIF 


CURSY SIF 


CURNAMF4="50000T0" 
CURNAME4 =" 500000R" 
CURNAMF1="300000F" 
CURNAMF4&"50000IN" 
CURNAMF 4 =a 000END" 
CURNAMF 48" .000F OR" 
CURNAMF4="3Q000DIVe 
CURNAMF4 =" 4000MOD" 
CURNAMF 4 @" a000NIL" 
CURNAMF 4 =" aQ00AND" 
CURNAMF{ 3" a 000NOTW 
CURNAMF 1 =" 3000VAR" 
CURNAMF =" 3000SET" 
CURNAMF¢ #2000LSS" 
CURNAMF ¢ =a Q00LEQ" 
CURNAMF 4s" aN00GEQ" 
CURNAMF4®"2 QOOGTR™ 
CURNAMF {mt 2000NEQ" 
CURNAMF§ ©"2000E0L" 
CURNAMFI 8" AOOTHEN* 
CURNAMF 4 =", OOELSE™ 
CURNAMF =" AOOWITH 
CURNAMF4 =", 0OCASE" 
CURNAMF 12"; 00GOTO" 
CURNAMF Ys" nOOTYPE" 
CURNAMF im", OOF ILE" 
CURN AMF 12” 0BFGIN" 
CURNAMF 4 #"GQWHILE" 
CURNAMF42"@OUNTIL™ 
CURNAMF 4 a"aQARRAY" 
CURNAMF42"R0CONST" 
CURNAMF1 = "ROL ABEL" 
CURNAMF {= "aREPEAT" 
CURN AMF 4 = "4 NOWNTOW 
CURNAMF 4 ®@RECORD" 
CURNAMP IS" APACKED" 
CURNAMF( #"yPROGRA" 


CURNAMP T= "aFUNCTI® 


CURNAMF4®"oPROCED* 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


AND CURNAME2e"M" THEN PROGRAMSY 


TOSY FLSE 

ORSY FLSE 

OFSY ELSE 

TNSY ELSE IMENTIFIERS 
FNOSY ELSE 

FORSY FLSF 

nrvsY €LSE 

MOMSY FLSE 

NILSY FLSE 

ANNDSY FLSE 

NOTSY FLSE 

VARSY ELSE 

SETSY FLSE 

LSSSY FLSE 

LeEOSY FLSE 

GFASY ELSE 

GTRSY ELSE 

NFOSY FLSE 

FOLSY FLSE TDENTIFTERS 
THENSY eLSe 

FLSESY ELSF 

WYTHSY FLSF 

CASESY FLSF 

GOYOSY FLser 

TYPESY ELSF 

FYLESY FLSE IDENTIFIERS 
RFGINSY ELSF 

WHYLESY ELSF 

UNTILSY ELSF 

ARRAYSY ELSF 

CONSTSY ELSF 

LABELSY ELSF INMENTIFIERS 
RFPEATSY ELSE 

NOWNTOSY ELSE 

RFcORDSY ELSE 

PACKENSY ELSE TRENTIFIFRI 


ELSE YDENTIFIERS | 
AND CURNAME2a#"0ON" THEN FUNCSY 
ELSE INENTIFIERS 


AND CURNAME2="URF" THEN PROGCSY 


ELSE YNENTIFIERS 


CURSYI@INENTIFTERS 
CURSY?™ IDENTIFIERS 


CURSYS@®INFNTYFTERS 


ENN OF CASF3 
IF RESWOROMPTIAN ANN CURSY*IDENTIFTER THEN 
BEGIN T1teCARDLENGTH@CUARCNT@CURLENGTHS 
TE CHARCNT#06 THEN CARDPNTIMCARDPNT#4 ELSE TiseTind3 
REPLACF XLINFPNTITS BY CARDPNT#=¢(CURLENGTH#1! 9 


ENN! 
FNM OF LETTFR FLSF 
TF CS9 THEN 


RFGIN 


CURVALtaC3 


NEXTCHARS 


x 10 
% if 
% 12 


CURSY tmtNTeONST3 


CHARACTERS, 
CHARACTERS, 
CHARACTFRS, 


FOR CURLENGTH3 


30131000 
30132000 
30133000 
30134000 
30135000 
30136000 
30137000 
30138000 
30139000 
30140000 
30141000 
30142000 
30143000 
30144000 
30145000 
30146000 
30147000 
30148000 
30149000 
30150000 
30151000 
30152000 
30153000 
30154000 
30155000 
30156000 
30157000 
30158000 
30159000 


-30160000 


30161000 
30162000 
30163000 
30164000 
30168000 
30166000 
30167000 
30168000 
30169000 
30170000 
30171000 
30172000 
30173000 
30174000 
30175000 
30176000 
30177000 
30178000 
30179000 
30180000 
30181000 
30182000 
30183000 
30184000 
30185000 
30186000 
30187000 


sea 


fwedicr Gibathea 2 2 FE rtto, nit = 


s © 


WHILE C<9 NO RFRTN CURVALES10XxCURVAL4CS NEXTCHAR ENDS 
IF Ce". THEN 
BEGIN 
NEXTCHARS 
IF cSO THEN 
BEGIN CURSYt=RFALCANSTS 
NO REGAIN CURVAL t#10xCURVAL4CS 
sCALFS2SCALE® 13 NFEYTCHAR? 
FND UNTTI (C>93 oe 
END ELSE TF Cat." THEN C8264 ¢% SPECIAL MARK FOR *,," 
7 eLSE ERRORC4)3 
ENDS 
IF Caterer THEN 
BEGIN 
CURSY!ISREALCONSTS NEXTCHARS 
IF ez" AR cate” THEN BEGIN NEGEXPESezte"s NEXTCHAR ENDS 
IF ¢sS9 THEN | er 
BEGIN FXPtacs NEXPCHARS 
WHILF C<9 DO REGIN EXPte10xFXP+C3 NEXTCHAR END3 
: TF NEGEXP THEN EXP! m@EXP3 
END ELSE FRRoRCO)S 
SCA} EtmSCALFoEYP3 
ENNnS 
IF CURSY®RFALCONST THEN 
BEGIN 
REALOVERFL OWtmOVFRFLAWS 
CURVAL $@CURVALX4OwSCALES 
REALAVERFLOW!a03 
ENN ELSF 
IF CURVALD>MAXINT THEN 


BEGIN : 
NvERFLOAWS FRRAR({4)3 CURVAL?) #03 REALOVERFLOW! #03 
. ENN3 : 
FAM OF DIGIT FLSF 
TF CRQUNTES THEN 
RE GYN 
CURSYtmALFACONSTS CURD FNGTH!<03 NFXTCHARS 
FINTSIaFALSE3 
NO BEGIN 
TF czQuntTes THEN BEGIN NEXTCHARS FINISt eC #0 0TFS END FLSE 
IF CHARCNTsO THEN AFGIN ERROR(6)3 FINIS?#=TRUE FND3 
IF NOT FINTS THEN 
BEGIN 
REPLACE STRINGENT #CURL FNGTH BY CHARPNT FOR 13 
CURLFANGTH SmcCUR] FNGTH44 3 
NEXTCHARS _ 
END END UNTIL FINTS? 
IF CURLFNGTHSO THEN EReAR¢4) ELSE 
IF CURLENGTH=! THEN 
BEGIN CURSY teCHARCONST? 
REPLACF CHARPAIT AY STRINGPNT FOR 13 CURVAL?=#CHIf0]3 
ENN FLSF 
IF CURLENGTHS7 THEN 
BEGIN TREXTrOlia” 2 ae 
REPLACE TFEXTPNT AY STRINGPNT FOR CURLENGTHS 
; CURVAL SaTPXTIOT3 
ENN} 


30188000 
30189000 
30190000 
30194000 
30192000 
30193000 
30194000 
30198000 
30196000 
30197000 
30198000 
30199000 
30200000 
30201000 
30202000 
30203000 
30204000 
30205000 
30206000 
30207000 
30208000 
30209000 
30210000 
30211000 
30212000 
30213000 
30214000 
30215000 
30216000 
30217000 
30218000 
30219000 
30220000 
30221000 
30222000 
30223000 
30224000 
30225000 
30226000 
30227000 
30228000 
30229000 
30230000 
30231000 
30232000 
30233000 
30234000 
30235000 
30236000 
30237000 
30238000 
30239000 
30240000 
30241000 
30242000 
30243000 
30244000 


FNM OF 
RFGTN 


IF 
IF 
IF 
IF 
IF 
IF 


FNDS 


ve ve 28 20: 


STRINGS FISF 


CURSY@mSYMROL ICT NEXTCHARS 


CURSY#CNLON AND AeEAUAL THEN 

BEGIN CURSY!#ASSTGNSYS NEXTCHAR END ELSE 
CURSY2DNT AND Cat," THEN 

RE GIN CURSY!=NOURLENOTS NEXTCHAR FND ELSE 
CURSY®LSSSY AND CREAUAL THEN 

REGYN CURSYteLFasSy3 _NEXTCHAR END ELSE 


CURSY®LSSSY AND ess" THEN 


BEGIN CURSY!=NFOSY$ NEXTCHAR END ELSE 
CURSY2GTRSY AND @#EaUAL THEN 

BEGIN CURSY!eGFOSY3 NEXTCHAR END ELSE 
CURSYSLPAR AND ftatew THEN 


BEGIN — % wee COMMENT were 


NEXTCHARS 


IF ¢20NLLAR THEN % DOLLAR INNICATES COMPILER OPTIONS. 


NO REGIN 
NEXTCHARS CxteC3 NEXTCHAR3 
TF CX="L" THEN Te Cai THEN HEADING 
ELSE LISTOPTION!=¢ate* 
TF CXm"R" THEN RESWORDOPTIONteCae” 
Ye Cxs"c" THEN CHFCKOPTYONtacat%en 
TF CXe"" THEN DIiMPOPTIONtsCater 
TF CXa"y" THEN XPFFOPTIONS scare 
TF CXS"A" THEN 
IF Cate" THEN wRITECPASCALGOL »ALIST) 


ELSE 
ELSE 
ELSE 
ELSE 
ELSE 


FISE wRITECPASCALGOL sNOALIST) ELSE 


TF CXa"y" THEN 

RFGIN LASTCHARPNe te CHARCNT = CARDLENGTHS 
CARDLENGTHs #10xC3 
NFXTCHARS PARDLENGTH! SCARNLENGTHS#CS 
TF CARN] ENeTHS9 OR CARDLENATH>BO THEN 
RFGTN FRROGC14)3 CARDLENGTH!™72 ENN$ 


CHARCNT? @MAXCO>LASTCHARPOS+CARDLENGTH#4 )3 


ENDS. 

NEXTCHARS 
FND UNTIL cere 
FINTSterAl SF3 
NO AEGIN 

Ye C#%e" THEN, 


SCAN CARDPNTICARRPNT FOR CHARCNTSCHARCNT UNTIL sai} 


TF CHARCNT#O THEN NEWCARD ELSE 
REGIN NFEXTCHARS 
WHILF Catan DO NEXTCHARS 
FINTStaratyny 
ENN END UNTrL FeNTSs 
NEXTCHARS 
GO TO START} 


ENN OF COMMENTS 


END AF TNSYMBOL 3 
RUTTPeTTT TIE CTTILTTETTTTTTTTETORTETTLTTTTTTECETETTTTT ETE OCTTTT TEE CETTE 
% 40002000 
%40003000 
%40004000 
%40005000 


PART Gt FYPRESSION PARSER. 


30245000 
30246000 
30247000 
30248000 
30249000 
30250000 
30251000 
30252000 
30253000 
30254000 
30255000 
30256000 
30257000 
30258000 
30259000 
30260000 
30261000 
30262000 
30263000 
30264000 
30265000 
30266000 
30267000 
30268000 
30269000 
30270000 
30271000 
30272000 
30273000 
30274000 
30275000 
30276000 
30277000 
30278000 
30279000 
30280000 
30281000 
30282000 
30283000 
30284000 
30285000 
30286000 
30287000 
30288000 
30289000 
30290000 
30291000 
30292000 
30293000 
30294000 
30295000 
30296000 


sag 


ry 
_ 


Ret shad 


boris 


busin 


fae 


ive: 


> 


ae 32 ae 20 98 


PROCFNURE FXPRFESSIONS FORWARD: 
PROCFNURE CONCATS FORWARD: 


ALPHA TEMPSYM} 
REAL sx} . 
INTEGER EXPRLEVeELe TX} 


NEFF INE PUTTEXT¢ Te. 
BFGINn 
TE NUMSYMS=MAXSYMS THEN 
RFGIN FRRORETI)3 
; NUMSYMS tag 3. 
FNM ELSE NUMSYMSEmNIMSYMS4#s 3 
SYMTABFPNUMSYMS T2273 
END MF PUTTEXT #3 


DEFINE PUTSYM¢CS)= 

BFGTy 
TEMPSYMimeSyR1041051693 
PUTTEXTCTEMPSYMy3 

FND Me PUTSYM #3 


OFFINE PUTCONSTEVAL)= 


BrGIn 
PUTTEXTO™2000000")3 
PUTTEXTCVAL 93 

FND AF PUTCONST #3 


DEFINE PUTRUMMYs 

BFGIN 
PUTTEXTC™30N0000"93 

END AF PUTMUMMY #3 


DEFINE PUTTOCLsNUMsSNUMDIG)= 
BFGTN | 


TEYTCOJtE® "e@ L raSte1673 
RFPLACE TEYTPNT#+2 RY NUM FRR NUMDIG DIGITS 


PUTTEXTCTEXTLON93 
END MF PUTIDA 


DPFINE WRITEEX PRE 


BFGIN 


FOR Tite, STEP 4 UNTIL NUMeYMS 00 


REGAIN 


ae 
SZ BOQ FnnaBananang 


Sxt=SYMTABPT193 TwemSyv. 6418633 
IF TX#O0 THEN GENCS¥.705) ELSE 
IF TX=3 THEN . . ELSE 
IF TXet THEN GENCS¥e197) ELSE 
BEGIN , 
TitaTieis SXteSYMTABT1I3 


%40006000 
%40007000 
%40008000 
%40009000 


LELALALAALAAAAALVRLARALL LLL LHL LH LK LALLA LL ALA ALLL ELLA LLL LLL KLSLLALAHKYVXXXYAOO10000 


40011000 
40012000 
40013000 
40014000 
40015000 
40016000 
40017000 
40018000 
40019000 
40020000 
40021000 
40022000 
40023000 
40024000 
40025000 
40026000 
40027000 
40028000 
40029000 
40030000 
40031000 
40032000 
40033000 
40034000 
40035000 
40036000 
40037000 
40038000 
40039000 
40040000 
40041000 
40042000 
40043000 
40044000 
40045000 
40046000 
40047000 
40048000 
40049000 
40050000 
40051000 
40052000 
40053000 
40054000 
40055000 
40056000 
40057000 
40058000 
40059000 
40060000 
40061000 
40062000 


| @ 


ae 


TF SX.f4ats1s0 THEN GENINTESX) FLSE GENREALCSYX)3 
PND ENDS. 
NUMSYMS220} 
END me WRITEEXKPR#ES 


DEFINE CHECKEXPROELLIMSIILIM ss 

BEGIN | 
PUTTEXTO"CHECKE)3 
FYPRESSTONS | . | 
PUTSYME™s"93  PUTCANSTECLLIMDS 
PUTSYME"s™)3 PUTCONSTONLIMIS 
PUTSYMEMse"93 PLITCOANSTCCARNCNT D3 
PUTSYME M993 

FD AF CHECKEXPRE? 


BOOLFAN SIMPLEVARIABLFs tNSTNEBDACKETSS 
INTEGER NUMPOTNTERSS 


PROCFNURE vARTARLE$ 

BEGIN P 
INTEGER STARTSYMsILYMoslll IM? 
REAL T3 
RONLEAN INRBRACKFETSTNRECORD? 
LARFL ADDANDNR} 


STARTSYMEmNIIMSYMSs#14 3 ; 
TF THISLEVFL >CURLFVEL THEN % VARYARLE IN FYFLO LIST OF ; 
RFGIN % RFCORN USED IN WITH@STATEMENT, 
TISDYSPLAYCTHISLFVEL 13 
TateT.FIRSTWYTHSYMS TSteT, -LASTWITHSYM3 
FOR T3t=Ta STEP { UNTYL 75 DO PUTTEXTCWITHTABCT3193 
TNRECORO te TRUE S 
. TNBRACKETISRONLEANCT. BRAPKETSINWITH)3 
NUMPAINTERSPSNUMPAINTERS&TeNUMPNTRSINWITHS 
SIMPLEVARTABLE taFALSF3 
CURTYPF iar. RECTYPF3 TISTYPETABIECURTYPEI3 
60 TN ADNADORS © 
PNAS 
TF THISLEVE! > AND THIS! EVEL<CURLEVEL THEN ERROR(S)3 
CURTYPFI@THTSIN,. TYPFS SIMOLEVARIABLES @ TRUE 
PUTTDC"V"s 1Q00xTHISLEVF! +THTSINDEXs3)3 
{TNSYMBNLS 
TF CURSYELRRACKFT MR CURSYsnOT OR CURSY=ARROW THEN 
REGIN 
SIMPLEVARTARBLE ta@FALSFS 
No REGIN 
IF CURSYSLARACKFT THEN 
BEGIN 
TF NOT CINBRACKET nr TNRECORD) THEN 
REGIN PUTSYMC™P")s TNRRACKETIRTRUE FNDS 
NO BFGIN 
TIRTYPETABIPCURTYPE J3 
LLIMteTYPFTABSrCURTYPE IS ULIMsmTYPETABRSLECURTYPES3 
IF TeFORMFARRAYS TUFN ERRORC12)3 
TF YNRECORN THEN PTTEXTC® +O")3 


40063000 
40064000 
40065000 
40066000 
40067000 
40068000 
40069000 
40070000 
40071000 
40072000 
40073000 
40074000 
40075000 
40076000 
40077000 
40078000 
40079000 
40080000 
40081000 
40082000 
40083000 
40084000 
40085000 
40086000 
40087000 
40088000 
40089000 
40090000 
40091000 
40092000 
40093000 
40094000 
40095000 
40096000 
40097000 
40098000 
40099000 
40100000 
40101000 
40102000 
40103000 
40104000 
40105000 
40106000 
40107000 
40108000 
40109000 
40110000 
40111000 
40112000 
40113000 
40114000 
40115000 
40116000 
40117000 
40118000 
40119000 


Lig 


UULIne Ls Forms, int 


Miu e 


| 
\ 


ao 


AnOannrt 


INSYMBNL 3 


IF CHECKOPTTON THEN CHECKEXPRCLLTMs,ULIM) ELSE FXPRESSIONS 


CHFCKTYPFS(T. INYTYPFsCURTYPE D3 
CURTYPFI=T, ARRTYPE? 

IF TNRFECORD THEN 

BEGIN 


40120000 
40121000 
40122000 
40123000 
40124000 
40125000 


YF LLIM<O THEN ReEGIN PUTSYMC*4")3 PUTCONSTC@LLIM) ENN ELSE40126000 


TF LLIM>O THEN BEGIN PUTSYMCerys PUTCONSTC LLIM) ENN3 


PUTSYME™M) MDS. 
Fr TYPFTARIECURTYPE 1. SIZF>1 THEN 


RFGIN PUTSYMO x" 3 PUTCONSTCTYPFTABICCURTYPE).SIZE) FND3 
FNM ELSE TF TYPFTARIECURTYPE), STRUCT>O THEN PUTSYM(E%s%)3 


FNM UNTIL CURSYZEMMMa3 
TF CURSYSRARACKFT THEN 
REGIN ERROR(S9)3 SKrPCRBRACKET)$ 
1F CURSYSRARACKFT THEN YNSYMBOL3 
FND FLSE TNSYMBOL $ 


ENA OF RRACKFTS ELSF 
IF CURSY=DNT THEN 
BEGIN 


TF NOTCINBRACKET nr -INRECORD) THEN 
REGIN PUTSYME"E")3 TNRRACKET#® TRUE FND 3S 
TISTYPETARITCURTYPEN?: 
TF T.FORMMRECORD THEN FRRORC12)3 
TNSYMAOL YS . 
TF CURSYSIDENTIFTFR THEN 
REGIN ‘eae 
SFARCHTABCT.RFECTABY3 
IF FOUND THEN 
BEGYN 
THISTMS=NAMFTABIFT. »RECTARSTHISINNEXT3 
PUTSYMEMHrys 
PUTCONSTCTHISTD.TNFO)S CURTYPFI=THISID. TYPES 
ENP ELSE RFGIN FRRARC1I3 CURTYPE?=#0 ENDS 
FND FLSE BFGIN FRROR?OD3 CURTYPER=0 ENDS 
YNRECARD se TRUS 
TNSYMROLS 


ENN OF MOT FLSE 
BEGIN & CURSY#ARRAW 


TISTYPETARIFCURTYPE]? 
TF T.FORMMFILES THEN 
REGIN 

CURTYPFEsT. FILFTYPe3 


IF TYPETARIPCURTYPe}.STRUCTSO THEN PUTTEXTO™ CO]")3 


FND FISE ? 

TF TeFORMaMTEYTFTI €& THEN 

REGIN . 
SYMTABECNUMSYMS12 @SyMTABLNUMSYMS) e "I" ¢3825t613 

PLUTSYMO™ 93S PUPTEXTCMLASTCH")3 

CURTYPFt CHART YPES 

FND €! SE 

1F T.FORM@PAINTFERE TOFN 

REGIN 
IF YNBRACKET THEN PUTSYME™ 9% )3 
INBRACKE TIsr alse) 
IF NUMSYMSs2<¢MayvSYuS THEN 
REGTN 


40127000 
40128000 
40129000 
40130000 
40131000 
40132000 
40133000 
40134000 
40135000 
40136000 
40137000 
40138000 
40139000 
40140000 
40141000 
40142000 
40143000 
40144000 
40145000 
40146000 
40147000 
40148000 
40149000 


40150000: 


40151000 
40152000 
40153000 
40154000 
40158000 
40156000 
40157000 
40158000 
40159000 
40160000 
40161000 
40162000 
40163000 
40164000 
40165000 
40166000 
40167000 
40168000 
40169000 
40170000 
40171000 
40172000 
40173000 
40174000 
40175000 
40176000 


: i { 
} ! 


» © 


_—_> 


FAR T1 P=NUMSYMS eTEP @1 UNTIL STARTSYM on 
SYMTABLT142)12SYyTABLTI13 
SYMTARFSTARTSYMlsa" MEMES 
SYMTABESTARTSYM+4 Jt" (Tiss 
NUMSYMS$3NUMSYMSi23 NUMPOINTERS! sNUMPOINTERS 413 
INRECORN 2 eTRUES 
ENN ELSE FRROR(63): 
CURTYPFiaT,POINTTYOF3 
PND FL SE RFEGYIN FRROR? 1293 CURTYEE (M0 END3 
tNSYMROL3 
ENN OF ARRMW3 
FND UNTIL CURSYSLRRACKET, AND CURSYZDNT AND CURSY ARROWS 
TF TYPETARICCURTYPEI.STRICTSO THEN 
REGIN mt on dk ieegebes 
IF INBRACKFT THEN PLTSYMC%I")3 
WHILE NUMPAYNTERSSO DO 
BF GIN PUTTFXTCM@d IN TVD! PUTTEXTC™ 10228%)3 
PUTTEXTC” T Mans PUTTEXTC™ 1022993 
NUMPAINTERS teNUMPOINTERS@13 
 ENMS 
FAID3 
FANS 
INSTOERRACKFTSItzINRRACKFTS 
CURMODF taNUMBERS 
END ME VARTABLES 


PROCFHURE PASSPARAMS3 

BEGIN. 
INTEGER NPARS»PARAM, ,PTYPE »spsFIRSTSYMS 
ROALEAN FORMALPROCS CHECKS 
LABEL EXITS 


PUTTOC™V"s1 Q00xTHTSLFVF! #TUTSINDEX 9593 
PrsTHISID, INFOS 
PORMALPROCHeBOOLFANCTHTSID" _FORMAL)S 
NPARStmPARAMTARIPIS PtePes3 
TF FORMALPRAC THEN NPARS#@e9993 
TNSYMBAL 3 
YF CURSYSLPAR THEN 
REGIN 
PUTSYMCE EH) 3 
NO BFGIN 
INSYMBNI 3 
IF NPARS20 THEN RFGIN ERRORC3)3 SKTPCRPAR)S GO TO FXIT END! 
PARAMISPARAMTARTPI$ PrmPot3 
PTYPESSPARAM.PARAMTYPF? 
IF PARAM, PARAMKTNDacONeT THEN 
BE e@IN 
CHECK eCHECKOPTTION AND TYPETABICPTYPEIJ.FORM LFQ CHAR3 
TF CHECK THEN PUTTEXTO"CHECKE™ 3 
PUTNUMMY3 FIRSTSYMEmNUMSYMS 3 
FXPRLEVEL SSFXPRLFVELI13 
FXPRESSINN} FXPR| EVeLtwEXPRLEVEL@ 13 
TF CURMONFSRITPATTERN THEN 
REGIN SYMTARPFIRSTSYuyta” REALC#S PUTSYMCHI%DS ENDS 
TF CHECK THEN 


40177000 
40178000 
40179000 
40180000 
40181000 
40182000 
40183000 
40184000 
40185000 
40186000 
40187000 
40188000 
40189000 
40190000 
40191000 
40192000 
40193000 
40194000 
40198000 
401960090 
40197000 
40198000 
40199000 
40200000 
40201000 
40202000 
40203000 
40204000 
40205000 
40206000 
40207000 
40208000 
40209000 
40210000 
40211000 
40212000 
40213000 
40214000 
40215000 
40216000 
40217000 
40218000 
40219000 
40220000 
40221000 
40222000 
40223000 
40224000 
40225000 
40226000 
40227000 
40228000 
40229000 
40230000 
40231000 
40232000 
40233000 


! i 5 : y : 
i H i : : 3 % 


seta. 


Pe EU geet oe boats, mes = 


roy 
a 


_ 


RFGIN 
PUTSYMEM,")$3 PUTCONSTCTYPETAB2EPTYPE) )3 
PUTSYME™s")$ PLITCONSTCTYPETABSLPTYPES )3 
PUTSYME% st) 3 PUTCONSTCCARDCNT )3 PUTSYMC™)")3 
FND3 
ENN ELSF - 
IF PARAMsPARAMKTNDavAR THEN 
BEGIN | 
TF CURSYSTDENTIFTER THEN 
REGIN 
SEARCH} 
IF FOUND THEN 
BEGIN 
Fr THYSTN, TOC! ASeaVAR OR 
THTSTN. TN; ASemCONST AND BOOLFANCTHISIN.FORMAL) THEN 
REGIN . 7 
IF PARAM.PARAMeCILE21 THEN 
BEGIN 
CURTYPEteTHIetn, ~ TYPES 
PUTIN E"V"s LOROxTHI SLEVEL+THYSINDEX 5) 3 PUTSYMC™,")3 
PUTIN EME", 1 OMOXTHISLEVEL+THISINDEXs5 3 PUTSYMC%,")3 
PUTING™Es LONOXTHISLEVELSTHISINDEK 2593 
TNSYMRNL 3 
ENA FLSF 
BEGIN 
VARTARLF3 
TF TYPFTARICPURTYPE). SSTRUCTD>O THEN 
IF NOT STMPLeVARIABLE THEN FRRORCO2)3 
END} 
FND ELSF REGTN ERROR(8)3 CURTYPFIa0 END? 
END ELSE RFGIN FRRARCI1I3 CURTYPES#0 ENDS 
FD F] SE RFGIN FRROR?9)3 CURTYPEts0 FND3 
ENN ELSF 
BEGIN 
TF CURSYaTNFENTIFTER THEN 
REGIN 
SEARCHS 
fF FOUND THEN 
REGIN 
Tr THISYN, TDC] ASGZPARAM, PARAMKIND THEN EFRRORC91)3 
PLUTINE"V"s {OONXTUTSLEVEL+THISINNEX #5) 3 
CURTYPFtaTr THISeH.LOCLASS®FIINC THEN THISTD.TYPE ELSE 03 
INSYMBNML 3 
ENN ELSF RFGIN FRRARCL)3 CURTYPEtan END} 
FAD FI SE RFEGTN FRRAR?O)3 CURTYPEI#0 FND3 
ENN 
CHFCKTYPE SCPTYPF sCLIRTYDF )3 
NPARStenPARSw43 
IF CURSYSCOMMA THEN PUTSYM(™s™)3 
FNO UNTIL CURSYZCOMMAS 
TF CURSYsRPAR THEN RFGIN FRRORC89)3 SKIPCRPARD ENDS 
EYITe PUTSYMEMZ ND) 
TF CURSYeRPAR THEN TNSYMAOL3 
PND) 
TF NPARS>O AND NOT FORMALPRNC THEN ERRORC393 
CURMODF 1 aNUMBERS 
FND Mr PASSPARAMS3 


40234000 
40235000 
40236000 
40237000 
40238000 
40239000 
40240000 
40241000 
40242000 
40243000 
40244000 
40245000 
40246000 
40247000 
40248000 
40249000 
40250000 
40251000 
40252000 
40253000 
40254000 
40255000 
40256000 
40257000 
40258000 
40259000 
40260000 
40261000 
40262000 
40263000 
40264000 
40263000 
40266000 
40267000 
40268000 
40269000 
40270000 
40271000 
40272000 
40273000 
40274000 
40275000 
40276000 
40277000 
40278000 
40279000 
40280000 
40281000 
40282000 
40283000 
40284000 
40285000 
40286000 
40287000 
40288000 
40289000 
40290000 


i 
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PROCFOURE FACTNRS 
BEGIN 


INTEGER STARTSYMsSTYPFeTS$ 
RNNLEAN FIRST? 


RFAL VALS 


AFFINE PARAMFTFR® 


RFEGIN 


INSYMBQL 3 
IF CURSYSLPAR THEN 


BEGIN 


PUTSYMCMO NSS 


PUTSYME "993 
ENN ELSF FRRORC3)3 
PND OF PARAMETERS 


PURMODF? SNUMBER 3 ; 
TF CURSYSIMFNTYIFTFR THEN 


RBFGIN | 
SFARCHS 


TF FOUND THEN 


REGIN 


yews CHECK THAT THE FUNCTTON HAS 1 PARAM, 


INSYMAAL 3 


EXPRESSIONS 
TF TYPETABIPCURTYPE) FORMMNUMERTC THEN CURTYPFESINTTYPES 
TF CURSYZRPAR THEN ReGIN ERROR(393 SKIPCRPAR) ENDS 


Yee FACTAR ae 
Le eaewataakkeeen 


TF tUReYsRPAR THEN YNSYMBOL3 


If THISTD, INCLASSSVAR nR 


THISTD, TOCLASSSCANS? AND BONLEANCTHISID.FORMAL) 


THEN VARTARLF FLSF 
IF THISTO.IDCLASS@ONNS? THEN 


BEGIN 


TF THISIN.INENS1023 THEN PUTCONSTCTHISIO.INFO) 
FLSE PUTCONSTCCONSTTABETHTSIN.« INFO"10233)340323000 
CURTYPEImTHISTD. TYPES 
INSYMROL} 
ENN ELSF oe 
IF THISTD.TDCLASS#FIINC THEN 


BEGIN 


TF THYSTABS0 THEN 
REGIN 
INTEGER DUMMYS |. , 
TF CURNAMF1@"3000AR8" THEN 
BEGIN 


PUTTEXT EC 
TF CURTYPF¥RFALTVPE AND CURTYPFFINTTYPE THEN ERROR(C67)3 


ENN ELSE 
IF CURNAMF{#"30N00CUR" THEN 
BEGIN 


INSYMBDL 3 


ARS" 43 


TF CURSY=LPAR THEN 


BEGIN TNSYMAN 3 


END FLSF FRRORCS ADS 
CURTYPF PeCHARTYPES 
ENN ELSE 


CURMQODE t=NUMRFERS 


Zeew INTRINSIC FUNCTION wee 


PARAMETER} 


CHECKEXPR( 056393 

TF TYPFTARGPCURTYPE] eFORMZNUMERTC THEN ERROR(C67)3 
TF CURSY#RPAR THEN BEGIN FRRORC46)3 SKYPCRPAR) ENDS 
TF CURSY@RPAR THEN INSYMROL3 


*¥ "aRse 


* "CHR" 


40291000 
49292000 
40293000 
40294000 
40295000 
40296000 
40297000 
40298000 
40299000 
40300000 
40301000 
40302000 
40303000 
40304000 
40305000 
40306000 
40307000 
40308000 
40309000 
40310000 
40311000 
40312000 
40313000 
40314000 
40315000 
40316000 
40317000 
40318000 
40319000 
40320000 
40321000 
40322000 


40324000 
40325000 
40326000 
40327000 
49328000 
40329000 
40330000 
40350000 
40351000 
40352000 
40353000 
40354000 
40355000 
40356000 
40357000 
40358000 
40359000 
40360000 
40361000 
40362000 


40363000. 


40364000 
40368000 
40366000 
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TF CURNAMFIa"3000FAF" OR % "EOF" /"EOLNY 
CURNAMF i e*4GONEO) NY THEN 
BEGIN 
FYRST!sCURNAMP 12" 3000E0F"} 
FYLEPARAMCINPUTFYLE)D3 
PUTINCTI"S FT! ENAMES5)3 
PUTTEXTCTE FYRST THEN * ,EOFY FLSE * ,EQLN'53 
tr LPARFOUND THEA 
AFGIN 
IF CURSYSZRPAR THEN BEGIN ERRORC46)3 SKTPCRPAR) END} 
IF CURSY@RPAR THEN INSYMBOL3 
FND? 
CURTYPFEteROOL tY¥Pe3 
ENN ELSF . ‘4 
IF CURNAMFis"30N00KN" THEN x "Onn" 
BEGIN iss 
PUTTEXTC™ Anpotss PARAMETERS 
TF CURTYPE SINT TYPE THEN FRROR(67)3 
CURTYPFSeROOLTYPes CURMNDEMEBITPATTERNS 
FNM ELSE _ 
IF CURNAMF{&"300000N" THEN “% "ORK" 
REGIN 
PUTSYMC"E")3 INeYMBOLS 
YF CURSYSLPAR THeNn 
RFEGIN 
INSYMANLS _FXPPFSSION} 
IF TYPFTARIPCURTYPE J. FORM>CHAR THEN ERRORC67)53 
IF CURSYZRPAR THEN BEGIN FRRORCK693 SKIPCRPAR) ENDS 
TINSYMBOL3) | 
“END FLSF FRRNR(Sa)S 
CURTYPFI@INTTYPE: PUTSYMC™ 993 
ENN ELSE ; 
IF CURNAMF ¢s"40QPREN" OR % "PREDW/"SuCC" 
CURNAMFY e"400SUrC"™ THEN 
REGYN 
FYRSTLsCURNAMFE 1e"4QOPRED"3 
PUTTEXTCPCHFCKE 93 INSYMBOL3 
TF CURSY@LPAR THEN 
RFEGIN 
INSYMAN 3 FXPRFESSION} 
PUTSYMETF ETRS? THEN “#" ELSE "S03 PUTSYMEMIM)3 
IF TYPETARIPCURTYPE) eFORM>CHAR THEN ERROR(47)3 
PUTSYMC%s "99 BUTCONSTCTYPETARSCCURTYPE])3 
PUTSYMCMs "93 BUTCONSTE TYPE TARILCURTYPE 193 
PUTSYMCE%s O3 PUTCONSTECARDCNT)3 
PUTSYMEM) N93 
IF CURSYFRPAR THEN BEGIN ERROR(4693 SKTPCRPAR) END? 
IF CURSY#RPAR THEN INSYMBOL3 
FND FLSF REGIN FRROR(S893 CURTYPE?#0 ENDS 
ENA ELSF ; 
TF CURNAMF (= *SOROUNN”® THEN % "ROUND" 
BEGYN 
PUTTEXT¢” ROUND™ 93 PARAMETERS 
tr CURTYPF SRE AL TYPE THEN ERROR(67)3 
NUMSYMSESNUMSYMSa43 PUTSYME™, "93 
PLUTCONSTCCARNCNT 3S PUTSYMC O93 
CURTYPFIZINTTYPES 


40367000 
40368000 
40369000 
40370000 
40371000 
40372000 
40373000 
40374000 
40375000 
40376000 
40377000 
40378000 
40379000 
40380000 
40381000 
40382000 
40383000 
40384000 
40385000 
40386000 
40387000 
40388000 
40389000 
40390000 
40391000 
40392000 
40393000 
40394000 
40395000 
40396000 
40397000 
40398000 
40399000 
40400000 
40401000 
40402000 
40403000 
40404000 
40405000 
40406000 
40407000 
40408000 
40409000 
40410000 
40411000 
40412000 
40413000 
40414000 
40415000 
40416000 
40417000 
40418000 
40419000 
40420000 
40421000 
40422000 
40423000 


” © 


SEE a 


ENN ELSF hoses 
TF CURNAMF i=" 3000SAR" 
BEGIN 
PUTTFXT¢E™ SOR" 93 
NUMSYMS fe NUMSYMSq 43 
PLUTCONSTCCARNCNTAS 
YF CURTYPFE FRE ALTVPE 
FNMA ELSE | 
TF CURNAME (m"SOTRUNC" 
BEGIN ts 
PUTTEXTEC™ TRUNC 93. 
NUMSYMS §aNUMSYMSa43 
PUTCONSTCCARNCNT§3 
YF CURTYPFARF ALT YPE 
CURTYPFEMINTTYPE? 
END ELSE 
IF CURNAMFE 4 2 "6CNNCAT" 
CONCAT ELSE 
tr CURNAME CSP 4nnTIME® 
BEGIN 
PUTTEXT EC” CTIMEC™ S$ 
 CURTYPE SSREAL TYPE? 
ENO ELSE .. 
IF CURNAME( e"400DATE” 
REGITN oe 
PUTTEXTE"CURDAT™§3 
CURTYPFESsALFATYPe 3 
FND ELSE. 
IF. CURNAMF{a"7F] AP ere 
BEGIN 
PUTTeEYXT¢” CTIME CYS 
CURTYPFISREAL TYPE? 
END ELSE 
TF CURNAME (et ATATI ue 
BEGIN 
PUTTEXTOMCTIMECS3 
CURTYPFEMREAL TYPES 
ENN ELSE 
Ie CURNAMF (m"7WEEKRA” 
REGIN 
PUTTEXTOYWEEKNAM SS 
CURTYPFISALFATYPES 


THEN x "SOR" 


PARAMETERS 
PUTSYMC(™, "93 
PUTSYMC™)%)3 
AND CURTYPEFTNTTYPE THEN ERROR(67)3 


THEN % "TRUNCS# 


PARAMETERS 
PUTSYM(EM,")93 
PUTSYMC™) "93 
THEN ERRORC67 93 


THEN % "CONCAT" 
THEN % "TIME" 
PUTTEXTOE™1 9/60")3 
INSYMBOL$ 

THEN % "DATE" 
INSYMBOL 3 


AND CURNAMF28"D" THEN % “ELAPSED” 


PUTTEXTO"2)/40)")3 
INSYMBOL3 


THEN x "INTIMe* 


PUTTEXTC%3)/60)")3 
INSYMBOL 3 


AND CURNAMFome"Y" THEN % “WEEKDAY” 


INSYMBOL3 


FNM ELSE TF CURNAME i a"GOOUSER® THEN % “USFR® 


REGYN 
PUTTFXTO™ TIMEMS3 
CURTYPFImALFATYPeS 
ENN ELSE 
BEGIN 


PUTTEXTEC™ cCHld")3 
INSYMBOLS 


Z "SINTS"COSY ETC, 


PUTTREXTCTE CURNAME¢ @"30Q0QSIN® THEN * SIN” LSE 
TF CURNAMEL@"3000COS" THEN * cos” FLSE 
TF CIIRNAMFER"GARCTANY THEN “ARCTAN”® FLSE 
TF CURNAME1a"GOOSQRT" THEN * SORT” FLSE 
Yr CURNAMFI@"3000EXP" THEN * EXP” eLSE 


tt LAM) 3 
PARAMFTFRS 
IF CURTYPFFREALTVPF 
CURTYPFERREAL TYPES 


AND CURTYPEFINTTYPE THEN ERROR(67)3 


40424000 
40425000 
40426000 
40427000 
40428000 
40429000 
40430000 
40431000 
40432000 
40433000 
40434000 
40435000 
40436000 
40437000 
80438000 
40439000 
40440000 
40441000 
40442000 
40443000 
40444000 
40445000 
40446000 
40447000 
40448000 
40449000 
40450000 
40451000 
40452000 
40453000 
40454000 
40455000 
40456000 
40457000 
40488000 
40459000 
40460000 
40461000 
40462000 
40463000 
40464000 
40465000 
40466000 
40467000 
40468000 
40469000 
40470000 
40471000 

40472000 
40473000 
40474000 
40475000 
40476000 
40477000 
40478000 
40479000 
40480000 
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t 


ENDS 
FND mF INTRINSIC FUNeTIONS FLLSE 
REGIN 
TIsTHISTO.TYPF 
PASSPARAMSS 
CURTYPrIsT3 
ENDS | - 
END OF FUNCTIONS FI SE 
IF THISTD.INCLASS@#PROC THEN 
BEGIN 
FRROR(6A)3  PASSPARANS3 
CURTYPEts0O3 
END ELSF BFGTN FRRARC6a)3s CURTYPEt#03 TNSYMBOL FNDS 
_ FND FLSE REGIN FRRORC( 93 CURTYPE1=03 TNSYMBOL END} 
PNM OF TDENTIFTFER FL SF 
TF CURSYSCHARCANST THEN 
RFGTN | a a eee 
— CONSTANTOCVAL SCURTYPE)S BLITCONSTCVALD3S 
FNM ELSE 
TF CURSYSNNTSY THEN 
RFGIN oe - 
PUTTFYTE™ NOT ")3  PUTDIMMYS STARTSYMt@NUMSYMS3 
TNSYMBNL} FACTORS 
TE CURTYPF>0 THEN 


TF CURTYPFZBNOLTYPF THEN BEGIN FRROR¢1793 CURTYPE?20 END3 


TF CURMOMFENUMBFR THEN 
RFGIN SYMTARCSTARTSYMy 8 an BCs PUTSYMC™) 93 
CURMODF taRTTPATTERN? 

FND3 

FNM ELSE 

TF CURSY@NTLSY THEN 

REGIN ee 
PUTCANSTOCO)} CURTYPFrsNeL TYPES 

— YNSYMBOL3 

FNM ELSE 

TF CURSY=LPAR THEN 

REGIN 
PUTSYME™EN)3 
TNSYMBOLS EXPRESSTONS 
TF CURSYFRPAR THEN REGAIN FRRORC446)3 SKIPCRPAR) ENDS 
PUTSYME™9%)3 
rNSYMBOL3 

FNM ELSE 

YE CURSY@LBRACKET THEN 


REG YIN 


TNSYMANLS3 Se 
TF CURSYSRBRACKFT THEN 
REGIN | ae 
PUTCONSTCOD3 CURTYPEteFMPTYSETS CURMODE!sNUMRFRS 
INSYMBM 3 
FND ELSE 
REGIN 
FIRSTISTRUFS 
DO BEGIN 
TF FIRST THEN FIRSTItaFALSE ELSE INSYMBOLS 
PUTTEXTE™ RITEN)S STARTSYMISSNUMSYMS 3 
FXPRESSTONS 


Xuee SET CONSTANT wae 


40481000 
40482000 
40483000 
40484000 
40485000 
40486000 
40487000 
40488000 
40489000 
40490000 
40491000 
40492000 
40493000 
40494000 
40495000 
40496000 
40497000 
40498000 
40499000 
40500000 
40501000 
40302000 
40503000 
40504000 
40505000 
40506000 
40307000 
40508000 
40509000 
40510000 
40511000 
40512000 
40513000 
40514000 
40515000 
40516000 
40517000 
40518000 


40519000 . 


40520000 
40521000 
40522000 
40523000 
40524000 
40525000 
40526000 
40527000 
40528000 
40529000 
40530000 
40531000 
40532000 
40533000 
40534000 
40535000 
40536000 
40537000 
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TF STYPFeO THEN 

RFGIN STYPFSmCURTYPES 

IF TYPFTAB SP CURTYPE J ¢FORMDCHAR THEN ERROR(72)3 
FD F1SE CHFCKTYPESCETYPEsCURTYPE D3 

IF CURSY@NNURLFONT THFN 

REGIN 


INSyMBNL 3 


PUTSYME"S"93 SYMTABESTARTSYM] tm” BITS(M 


FXPRESSHONS 


TF STYPFe0 THEN 


BEGTN STYPFERCLIRTYDF3 
YF TYPETARICFURTYPE), «FORM>CHAR THEN FRROR(72)3 
END ELSF CHECKTYPES(STYPESCURTYPE 33 


FNDS es 
PUTSYMC™s")$ PUTCONETCCARDCNT)$ PUTSYMC™) "93 
TF CURSYSCIMMA THEN PUTTEXTe* OR")3 


ENM UNTrL CURSY#COMMAS 

IF CURSYFRBRACKFT THEN 

BEGIN FRROR(589)3 SKIPeRBRACKET)3 

TF CURSY=RBRACKE?T THEN INSYMBOL? 
ENN ELSF INSYMBOL3 


NEWTYPES TISeSETS TATSTZEIS13 TLLSTRUCTI@03 
TI,SETTYPESsSTYPE3 TYDFTABICTYPEINDEXIINTSS 
CURTYPFI=TYPEINDEXS 
CURMODF ta@RITPATTERNS 

FND3 


FAN OF SET CONSTANT FLSF BrGIN ERROR(C99)3 TNSYMBOL FNDS 


END mF FACTORS 


PROCFHURE TERM} 
BEGIN 


Xwawe TERM wen 
Lave keene kakan 


INTEGER STARTSYMs MONE » TYPE ssMULOPTRoF3 


PUTDUMMY} 


FACTOR} 


MONFSsCURMONE3 


WHILE CURSY>ASTFERISK ANN CiiRSYSMODSY on 


RFEGIN 


TYPELIMCURTYPES. 
FERTYPETARICTYPFI 1. FORM} 
TF FeNUMFRIC AMR FRELOATING THEN 


BEGIN. 


MONET =NUMBERS 
IF CURSY@ASTERISK THEN PUTSYM( Mx") FLSE 


IF CURSY=S, ASH 
IF CURSY@ANNSY 


BEGIN: a 
TF FePLOATING THEN FRRORC64)3 

TF CURSYaNTVSY THEN PUTTEXTC” Drv") ELSF Purtrexre™ 

FND END €| SF P 

TF CURTYPFaROOLTYPE MRP FeSET THEN 


RFGIN 


STARTSYMEantiMSYus3 


MULMPTRe@CURSYS 


THEN BUTSYM(™/") ELSE 
THEN eRRORCO4) ELSF 


MONE txaArTPATTERNS 
IF CURMNDE #MOnF THEN 


BEGIN SYMTABESTARTSYM]¢—" 
PUTTEXT¢” 


RO"™S PUTSYMC™ 9%) ENDS 


AND *)3 


MoD") 


IF CURSY# (TF FRSFT THEN ASTERISK ELSE ANDSY) THEN FRROR(64)3 
FNO FLSE FRRORC6A)S 


40538000 
40539000 
405460000 
40841000 
40542000 
40543000 
40544000 
40545000 
40546000 
40547000 
40548000 
40549000 
40550000 
40551000 
40552000 
40553000 
40554000 
40555000 
40556000 
40557000 
40558000 
40559000 
40560000 
40561000 
40562000 
40563000 
40564000 
40565000 
40566000 
40567000 
40568000 
40569000 
40570000 
40571000 
40572000 


x MeH THO TVS "MOD, *AND™40573000 


40574000 
40575000 
40576000 
40577000 
40578000 
40579000 
40580000 
40581000 
40582000 
40583000 
40584000 
40585000 
40586000 
40587000 
40588000 
40589000 
40590000 
40591000 
40592000 
40593000 
40594000 
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PROCenURE SYMPLrEXPRFSSYON 
BEGIN | Lee eee eka REE 


PUTDUUMMYS STARTSYMtaNUMeYMS3 
TNSYMBOLS FACTOR? 
TF CURTYPFE> AND TYPFI>0 THEN 
REGIN - 
— YF CURTYPE TYPE. THEN 
BEGIN 
TF TYPETABICTYPF4 TP ARMANUMERIC OR CURTYPESREALTYPE THEN 
CHECKTYPES(TYPF 1 sCURTYPE D3 
TF TYPE(@REALTYPE THEN CURTYPE!ISREALTYPES 
ENN) 
IF CURTYPEepFALTYPF ANN MULOPTR2DIVSY THEN ERRORC65)3 
FNDS 
TF MULOPTR=SLASH THEN CUPTYPES3REALTYPES 
__ YP CyRTYPFSO THEN CURTYPeteTYPELS 
FNM OF WHYLF LOOPS 
TF MODFeBITPATTFRN ANN CURMNDESMONE THEN 
REGIN SYMTARESTARTSYMIta” BC"™S PUTSYME™)") END3 
CURMODF teMnn€E 3 


FND mr TERM$ 


Zuew SIMPLE EXPRESSION wee 


INTEGER STARTSYMsMONE s TYPE soF3 
RONLEAN SIGNED? 


PUTDUMMYS STARTSYMieNIIMSYMS3 
TF CURSY@PLUS OR CURSYaMINIS THEN 
RFGIN SIGNFENt#TRUF3 
PUTSYMCTF CURSYSP] US THEN'+#" ELSE tary} 

ore TNSYMROLS 
FNAS 
TERMS 
MONE PS acuRMOAOE 3 
TF SIGNED THEN 
RFGIN FESTYPETARIPCURTYPF)- "FORMS 

, TF FSNUMFRIC AND FFL CATING THEN ERRORC29)3 
FADS 
WHILE CURSY>PLUS AND CuURSY<ORSY DO Ze, tet, MnRe 
RFGIN 

TYPE IIBCURTYPES FImsTYPETABICTYPE1), FORM$ 

Te FaeNUMERIC OR FRELMATING THEN 

RFGIN MONE Pt aNUMAFRS 

IF CURSY@PLUS THEN PUTSYM ¢M 4" > ELSF 
IF CURSY#MINUS THEN PUTSYM( =") ELSE ERROR(6493 

FND FLSE : 

TF CURTYPFSBOOLTYPFE THEN 

REGIN 

MONE tse I TPATTFRNS 
IF CURMADE sMOnE THEN 


BE RIN SYMTAREFSTARTSYMJ om” Be"s PUTSYMC™)") FADS 
IF CURSY=ORSY THEN PUTTFXTC" OR") FLSE ERROR(64)93 
FND FLSE _ 
TF FeSFET THEN 
RFEGIN 
MONE teRTTPATTFRNS 


IF CURMMDE MONE THEN 


40595000 
40596000 
40597000 
40598000 
40599000 
40600000 
40601000 
40602000 
40603000 
40604000 
40605000 
40606000 
40607000 
40608000 
40609000 
40610000 
40611000 
40612000 
40613000 
40614000 
40615000 
40616000 
40617000 
40618000 
40619000 
40620000 
40621000 
40622000 
40623000 
40624000 
40625000 
40626000 
40627000 
40628000 
40629000 
40630000 
40631000 
40632000 
40633000 
40634000 
40635000 
40636000 
40637000 
40638000 
40639000 
40640000 
40641000 
40642000 
40643000 
40644000 
40645000 
40646000 
40647000 
40648000 
40649000 
40680000 
40651000 
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BEGIN SYMTARISTARTSYMJ 29" BE"s PUTSYMC™)") ENDS 
If CURSY#PLUS THEN PUTTFXTC" | OR") FLSE 


IF CURSY@MTNUS THEN BEGIN PUTTEXTOC™ AND )3PUTTEXTOC" 


40652000 
40653000 


NOT "JEND40654000 


ELSE FRROR(6493 40685000 

FND ELSE FRROR(C64)3 40656000 
TNSYMBOL $ es 40657000 
PUTDUMMY3 STARTSYMtanUMeYMS$ 40658000 
TERMS | _ 40659000 
TF CURTYPE>O AND TYPF1>0 THEN 40660000 
REGIN ; 40661000 
IF CURTYPEFTYPE’ THEN 40662000 
BEGIN 5 bee 40663000 

YF TYPETABITTYPE11.FARMZNUMERIC OR CURTYPEFREALTYPE THEN 40664000 
CHECKTYPESC(TYPE 1 stURTYPE D3 40665000 

TF TYPE LMREALTYPE THEN CURTYPESEREALTYPES 40666000 

FND FND3 40667000 
TF CURTYPF®0 THEN CURTYPEteTYPE1$ 40668000 
FND OF WHILF LOOP3 ee 40669000 
TF MODFERTTPATTERN AND CURMNDFABITPATTERN THEN 40670000 
RFGIN SYMTARCSTARTSYMI)3 2" BC"S PUTSYME")") ENDS 40671000 
CURMONE tmMOne 3 40672000 
END MF SIMPLFEXPRESSIONS 40673000 
40674000 

40675000 

PROCENURE EXPRESSTONS Xeew FYPRESSTON tee 40676000 
BEGIN. 2 — Sea a Re 40677000 
INTREGER STARTSYMsFIRSTSYMs TYPE 1s RELOPTRoFS 40678000 
RNMNLEAN CALL GEN? 40679000 
UREA Gent 7, os ae eee 40680000 
FYPRLEVELIaPXPRLEVEL 4493 60681000 
TF EXPRLEVFL = 1 THEN 40682000 
RFGTN 40683000 
PUTDUMMY} 40684000 
FIRSTSYM t= NUMSYMS3 40685000 
ENDS. 40686000 
PUTAUMMYS STARTSYMEENUMSYMSS 40687000 
PUTNUMMY 3 40688000 
STMPLEFXPRESSIONS 40689000 
TF CURSYDLSSSY AND CURSYSINSY THEN Zi Mats Mer ator, Mom, Mar, wen, "INN HO6ID0ND 
RFGIN ei oe 40691000 
TYPE1t@CURTYPES FIETYPETABICTYPF1).F ORM} 40692000 
RFLOPTRraCURSYS 40693000 
YF FeALFA THEN 40694000 
REGIN 40695000 
IF CURMNDESAITPATTFRN THEN 40696000 
BEGIN SYMTARTSTARTSYMJy a” REALC"3 PUTSYMC™)") FNDS 40697000 

IF CURSYSLSSSY THEN PUTSYM(<E") ELSE 40698000 

IF CURSYSLFOSY THFN PUFSYMC("S") ELSE 40699000 

IF CURSY=GFOQSY THEN PursYMC"2") ELSE 40700000 

IF CURSYSGTRSY THEN PUySYM(">") ELSE 40701000 

IF CURSY2FOLSY THEN PUTSYM("3") ELSE 80702000 

IF CURSY@NFQSY THEN PUYSYMC"#") ELSE 40703000 
BEGIN | nae 40704000 

tr FOFLOATING THFN EFORORC64)3 40708000 
SYMTARCSTARTSYM] te"TNTSTCO™S PUTSYM(%s")3 CALLGENI®TRUES 40706000 
ENDS 40707000 
FND FLSE 40708000 


eaitfaes as 


Be Use oa 


, of 
Les 


sys 


> 


f 
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TF FeSET THEN 
REGIN 
IF CURMADEmATTPATTFRN THEN 
BEGIN SyMTARCSTARTSYM+a Jim” REALC™S PUTSYMC™)%) ENDS 
IF CURSY#EQLSY AR CLURSYsNEQSY THEN 
BEGIN PUTSYMCTE CURSYSFOLSY THEN me FLSE wey} 
ENN ELSF 
BEGIN a 
TF CURSY@LFOSY THEN eYMTABLESTARTSYMIt="INCLIC” ELSE 


40709000 
40710000 
40711000 
40712000 
40713000 
40714000 
40715000 
40716000 
40717000 


IF CURSYSGFOSY THEN eYMTABLSTARTSYMI ta" INCL2¢" ELSE ERROR(64)340718000 


PUTSYMC™S")3 CALI GEN t= TRUES 
FND END FISE 
TE FePOINTERS THEN 
REGIN a 
IF CURSYSEQLSY THFN PUTSYM("@") ELSE 
IF CURSY2NFOSY THEN PUTSYMC"#") ELSE FRRORCH4)3 
FND FLSE FRRORC64)3 


TNSYMROL 3 
PUTDUMMYS STARTSYMI=NUMeYMS3 
SYMP! FEXPRESSTONS 


Yr CURTYPF>0O ANN TYPF1>0 THEN 
Ir CURTYPEYTYPFY THEN 
TF RE| OPTR*INSY THEN 
REGIN 
Ie TYPFTARITTYPF13. “FORMZNUMERIC OR CURTYPE*SREALTYPE THEN 
CHECKTYPESCTYPES sCHIRTYPE D3 
FND FLSF 
tF TYPETABICCURTYPE). *FORMSSET THEN FRROR(66) 
Fl SF CHPCKTYPESCTYPE 1s TYPFTABICCURTYPE), SETTYPF)3 
tr CURMONF aBTTPATTFRN THEN 
RFGIN SYMTARESTARTSYM1 tan REALC"3 PUTSYMC™)%) ENDS 
'F CALLGEN THEN PUTSYMC™S")3 
CURTYPE @eROOL TYPES CIIRMANE PsBITPATTFERNG 
FND3 
FXPRLEVELS mE XPRLEVFL 913 
TF eXPRLFEVel 20 THEN 
RFGTN 
Fr CURMOMFERTTPATTFRN THEN 
REGIN ; 
SYMTABFRIRSTSYM] t= ™ pEAL C'S 
_ -PUTSYMEM) MY 
FND3 
_ WRITFEXPR} 
FNN} : 
FD AF EXPRESS IANS 


GFF INE ROOLEYPR= 


BEGIN 
PUTNDUMMY 3 FXPRLFVELI2{? EXPRESSIONS 
“YF GURYYPESQ THEN TF CURTYBFZBOOLTYPE THEN ERRORC1793 
TE CURMODE FR ITPATTERN THEN 
REGTN SYMTARE{E It2" Re"™S PUTSYMC™)%) ENDS 
FYPRLEVELt=o3} WRITFEXPRS 
FND me RBOOLEXPR#3 


40719000 
40720000 
40721000 
40722000 
40723000 
40724000 
40725000 
40726000 
40727000 
40728000 
40729000 
40730000 
40731000 
40732000 
40733000 
40734000 
40735000 
40736000 
40737000 
40738000 
40739000 
40740000 
40741000 
40742000 


40743000 


40744000 
40745000 
40746000 
40747000 
40748000 
40749000 


. 40750000 


40751000 
40752000 
40753000 
40754000 
40755000 
40756000 
40757000 


40758000 | 
40759000 


40760000 

40761000 
40762000 
40763000 


LLALAAALA BEL AALLLAALL LALA LALLA HAHA LAALALLALAL LL AAR ALAALALLAAK LAL LALLY AL ALXAXSOO001000 
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PROCFHURE CONCATS Sauk "CONCAT™ tue 
BFGIN Likekaaekvakkehen 
NEF INE INTFYPRe 
RFGIN TNSYMROLS FXPRESSTON? 
TF CURTYPE>O THEN 
TF TYPETARICURTYPES *eORMANUMERIC THEN ERRORC1793 
PNA #3 


PUTTEXTCMCONCAT™)S PUTSYMe"C™)3 
TNSYMBNLS | 
TF CURSY=LPAR THEN 
REGIN > 
TNSYMBNILS EXPRESSIONS 
TF CURTYPF>O THEN 
TF TYPETARICCURTYPFT.FNRMDALFA THEN FRRORC1793 
TF CURSY@cOMMA THEN 
BFGIN s 
PUTSYM¢(s"93 TNSYMADL: EXPRESSIONS 
IF CURTYPE>0 THEN be ee, 
IF TYPETABIFCURTYPFI.FARM>ALFA THEN FRRORC17)3 
IF CURSYSCOMMA THEN 
REGIN ; 
PUTSYMCs%)3) INTE XPa?s 
TF CURSYSCOMMA THEN 
REGIN 
PUTSYMEMs "93 TNTFYPRS 
IF CURSYSCOMMA THEN 
REGIN . 
PLUTSYMEMs "93 INTFXPRS 
PLITSYME"s"93 PUTCONSTCCARDCNT)3 
PUTSYMC HOM )3 
TF CURSYSRPAR THEN BEGIN ERROR(393 SKIPCRPAR) END} 
FND ELSE AFGIN FRRARC3)3 SKIPCRPAR) ENDS 
FND FILSE BFGIN FRRORS3)3 SKTPCRPARS FND3 
_ ENA ELSF RFGIN FRRORC353 SKIPECRPAR) ENDS 
_ FND FLSE REGIN FRRORCQ)3 SKIPCRPAR) FND3 
FD ELSE BFAIN FRRORC3)% SeIPCRPAR) ENDS 
CURTYPFEERREALTYPFS 
TE CURSYZRPAR THEN TNSYMBO! $ 
ENO MF CONCATS 


PROCFNURE PREAN(CHANGFLINE )3 


~VALUF CHANGELINES ROOLFAN CHANFFLINES 


BFGIN 
INTEGER FILEI NSE? 
RONLEAN CHECKS 


%50003000 
50004000 
#50005000 
¥80006000 
%¥50007000 
¥50008000 
%50009000 
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50011000 
80012000 
50013000 
50014000 
50018000 
50016000 
50017000 
50018000 
50019000 
30020000 
50021000 
50022000 
50023000 
50024000 
50025000 
50026000 
50027000 
50028000 
50029000 
50030000 
50031000 
50032000 
50033000 
50034000 
50035000 
50036000 
50037000 
50038000 
50039000 
50040000 
50041000 
50042000 
80043000 
50044000 
50048000 
50046000 


50047000 


30048000 
50049000 
50050000 
50051000 
50052000 
50053000 
50054000 
50055000 
50056000 
50057000 
50058000 
50059000 


} : i t 
! i : . : : : : “ ‘ 


2 @6 


ee ting 


ne 


—> 


Lieto oo 5 GOI 


Wel’ 


GENE" REGING» 7,293 50060000 
FILFPARAMCINPUTFILE)] FILEIDt=FILENAMES 50061000 
TF TYPFTABLPCURTYPET.FORMarcTLES THEN ERRORCAS)3 50062000 
TF SYMKINDPCURSYISTERMINAL THEN 50063000 
RFGIN — : eo 50064000 
TF CURSY NEQ RPAR THEN 50065000 
NO BEGIN ~ : 50066000 
WHILE CuRSYmCOQMMA MM TNSYMBOLS 80067000 

IF CURSY@INFNTIFIFR THEN 50068000 
BEGIN 50069000 
SFARCH3 50070000 

tr FAUNA THEN 80071000 

RFEGIN $0072000 

TF THISTN, THCLASSSVAR OR 50073000 
THISTN.INCLASSMCANST AND BOOLEANCTHISIDsFORMAL) THEN 50074000 

BEGIN 80075000 
VARTABLES FEsTYPETABICCURTYPE3),FORM3 50076000 

IF FReNUMERTC OR FRELOATING OR FaCHAR THEN 50077000 

BEGIN $00780N00 

CHECK taCHECKMPTIAN AND FSFLOATING 50079000 
WRITFEXPRS RENCHEE™s 206) 3 50080000 

Te CHECK THEN GENC"CHECKO" 65293 §0081000 
GENCHPREAN CMs Ay293 GENIDC"E*SFTLEIDs S93 GENE e917 )3 50082000 
GENINOMV"AFTI FID, 593 GENC™,",4,7)3 50083000 
BENINC"IMSFTI FID. 5)3 GENC™S "545793 50084000 

Te FaNUMFRIC THEN GENINTC2) ELSE 50085000 

TF FEFLOATING THEN GENINTC3) ELSF GENINTOW93 50086000 
GENC™,%,9,793 GENINTCCARDCNT)3 GENC™9%, 9 e793 50087000 

TF CHECK THEN - 50088000 

RFGTN joe) of he 50089000 
GENC"s"s1e793 GENINTCTYPETAB2PCURTYPET)3 GENC™s"e4e7)3 §$0090000 
GENINTCTYPFTARAPCURTYPE))3 GFNC"s "515793 50091000 
GENINTCCARNCNTSS GENC9%, 9,793 50092000 

PNDS 80093000 

END ELSF RFGIN FRRARCB2)3 INSYMBOL ENDS 50094000 

END FLSF RFGTN FRROPCB)3 INSYMBOL ENDS 50095000 

FNOD ELSE RFGIN FRROREW)3 INSYMBOL FNDS 50096000 

ENN ELSF EFRROR(O)S 50097000 
GENChZ4, 9,753 . 50098000 

FND UNTIL CURSYSCAMMA3 50099000 
TF CURSY#ZRPAR THEN REGIN FRRORC446)3 SKTPCRPAR) ENN 80100000 

_ TF CURSYSRPAR THEN TNSYMAQLS 50101000 
FNS . 50102000 
TF CHANGELINE THEN 50103000 
REGIN 50104000 
GENCHRL INGE 565293 GENTRCTENSFILED D+ 593) GENC™ sy 15793 50105000 
GENTIAC "VY FILEIN,§ Of GENE" ol 57 )3 50106000 

GENIN OTIY FILE IA, sy3 GE eto, 1,793 50107000 
FNIS 50108000 
GENCTEND' 5 4, 5)3 §0109000 
END NF PREADS §0110000 
50111000 

$0112000 

—PROCRAIIRE PWRITFOLINEFEFD D3 §0113000 
VALUF LTNEFFEDS BOALFAN LrNeFEeD} 50114000 
BEGIN | . 50115000 
INTEGER FILE INsFo ToL ASTSYS 50116000 


” © 


_ 


POINTER P3 
GENC™ BEGIN 70298. 
FYLFPARAMCMUITPUTFILF)3 FILFINS =F TLENAMES 
TF TYPFTABIFCURTYPE 1.FNRMBacILES THEN ERROR(8593 
TF SYMKINDPCURSYIFZTERMINAL THEN 
RFGIN | 
TF CURSY NEO RPAR THEN 
09 RFGIN. 
WHILE CURSY=COMMA nn In SYMBOLS 
IF CURSY@ALFACONST AND CURLENGTH>? THEN 
BEGIN uy etn ee - 
GENCTWALFAC 265793 AFNIDC"EMSFILE IN, 5)3 GENC™ ool e738 
FENINETVOSFILE TMs SS GENC so 15793 
GENIMETIMSFILE IMs S83 GENC S51 973 
PtaSTRINGPNTS ; 
FOR Tesi STFP 7 UNTIY 80 DO 
TF IT<cCURLENGTH THEN 
REGIN 
tr ALGNLCNT€10 THEN WRITEALGOLS 
REP! ACE ALGOLPNT PAI GOLPNT RY HHH, PEP FOR 7, Mm, ery 
ALGNLENTISAI GOI CNT=103 
FN €) SE GENCMO es 294)3 
GENINTCCURLENGTHD?$ RENC™® "st e7)3 
GENINTCCARMCNTSS GENCTI%o 15 7)3 
INSYMROL3 
END OF ALFACONST FI SE 
BEGIN Hee as 
GENCMPWRITEC™, 7e992 GENIDC*EPSFILE Ts SDS GENE oi 5799 
GENINDE"V"SFILEINe SS GENC™s "945793 
GENINE"TI*,F ILE IN» 83 GENC™»"ole7)3 
LASTSY!#ZCURSYS 
FXPRESSTONS FrsTYPETARICCURTYPE) FORMS 
GENE. % 545793 - 
TF FSNUMFRIC AR FeFLAATING OR FRCHAR OR FRALFA OR 
CURTYPFeRNOL TYPE THEN 
REGIN, — ie 
IF FaNUMFRIC THEN GENINTC(1) ELSE 
IF FSFLOATING THEN GENINTC2) ELSE 
IF F@ALFA THEN GENINT(S) ELSF 
Ir Aeeine THEN GENINTC4) eELSpe GENINTC393 
GEN¢"” “e197d3 
IF CURSY=CNi ON THER 
BEGIN 
INSYMBOL 3 FXPRESSTONS 
TF TYPETARITCURTYPEJ. FORM NEqg NUMERTC THEN FRRORCI7)3 
GENC%e"o1e7I3 
TF CURSYacOLON TuFN 
BEGIN . 
IF FeFLNATING THEN ERROR(4)3 
INSYMBNL 3S _FXPRESSTONS 
IF TYPFTARIPCURTYPE I] 6F ORM NEQ NUMERTC THEN ERRORC17)3 
GENC este 793 
FENN FLSF GENO 4 2% 30593 
END ELSE 
REGTN 
TF FaFLOATING THEN GENINTC16) FLSE 


50117000 
50118000 
50119000 
50120000 
50121000 
50122000 
50123000 
50124000 
50125000 
50126000 
50127000 
80128000 
80129000 
50130000 
50131000 
50132000 
50133000 
50134000 
50135000 
50136000 
50137000 
50138000 
50139000 
80140000 
50141000 
50142000 


$0143000 


50144000 
50145000 
50146000 
50147000 
50148000 
50149000 
50150000 
50151000 
50152000 
50153000 
50154000 
50155000 
50156000 
50157000 
50158000 
50159000 
50160000 
50161000 
50162000 
50163000 
50164000 
50165000 
50166000 
50167000 
50168000 
30169000 
50170000 
50171000 
50172000 


TF FaaLFA AND LARTSYSALFACONST THEN GENINTCCURLENGTH) ELSE50173000 
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IF FmALFA THeN GENINTC7) FLSE 
Tr FaCHAR THEN GENINTC1) ELSE GENINTC1093 
GENE, mi,” 24sh93 

ENN} 


FNM EISE FRANREL?7 
GENINTCCARNCNT)S GENCMI rly 73 
ENA OF FXPRESSTONS 
GENCE ete 793 | 
FND UNTEL CURSYSCMMMAS 
TF CURSY#RPAR THEN BFGIN FRRORC46)3 SKIPCRPAR) ENDS 
_ YF CURSYSRPAR THEN TNSYMAOL3 
FANS 
FYLENAMPSsF TLE THs 
TF LINEFEEN THEN 
REGIN 
INTEGER MUMMY © 
GENCTWLINE C56 5293. GENIRNOMF SF TLENAME,S 93 GENC%,%51497)3 
GENIN C*V"SFILEN AMES 593 AENC" >» "sie7)3 
 «6GBENING@ IH, SFILENAME 5593 APNC™)9, 9 S793 
FNI} 
GENCMEND' 4,598 
FND AF PWRITES 


PROCFNURE FILEWANDL 1NGCPROCNUM 3 eee FYLE HANDLYNG PROCEDURES! 
VALUF PROCNUMS YNTFGFR PROCNUM? Lene 
RFGIN Kane 1) PUT 
INTEGER F3 Kea 2) GET 
CASE PROCNUM OF . eee 3) RESET 
REGYIN 3 . aes Zease 4) REWRITE 
GENCTPUTY, 35593 Xuee 8) PAGE 


GENCMGET.3e5)3 % 
GENCWRESET 555393 % 
GENC"REWRITE% Ss 75493 & 
GENC™PAGEs4eH)3 & 
FNM % 
GENC™C e159 793 FYLFPARAM(A)3 % 
Tr FILFNAMFad THEN FRRORC7AYS % 
FisTYPFTABIPCURTYPE1.F RMS 
YF FeFILeES AND PROCNUMaSs THEN FRROR¢(80)3 
GENIDC"F MSF YLENAMF 58) 3 GFAC» "ote7)3 
GENTDC*V"sPrLENAMF 98 93 GENE,» “s1,793 
GENIDC"T*,FPLENAMF, 593 GENE sel, 73 
GFNINTCCARDCNT)3 GENC™ 9% 4 e793 
fer CURSYFRPAR THEN REGIN FORORCK6)3 SKTPCRPAR) END} 
TE CURSY@RPAR THEN TNSYMBO! 3 
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PROCFNURE PACKS 

BEGIN. 
INTEGER ITs} 
GENC™PACK(%, 55393 
TNSYMBOL3 
TF CURSYSLPAR THEN 
REGIN 

TNSYMBOL3 


50174000 
50175000 
50176000 
30177000 
50178000 
50179000 
50180000 
$0181000 
50182000 
50183000 
§0184000 
50185000 
50186000 
50187000 
30188000 
50189000 
50190000 
80191000 
50192000 
50193000 
50194000 
50195000 
50196000 
50197000 
50198000 
30199000 
50200000 
30201000 
30202000 
50203000 
50204000 
$0205000 
50206000 
50207000 
50208000 
50209000 
80210000 
50211000 
§0212000 
50213000 
50214000 
50215000 
50216000 
50217000 
580218000 
50219000 
50220000 
0221000 
50222000 
50223000 
50224000 
50225000 
50226000 
80227000 
50228000 
50229000 
50230000 
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TF CURSY@IDENTIFYER THEN 
BEGIN | 
SEARCH3 
IF FOUNN THEN 
BERIN _ 
TF THISIN. INCL ASSaVAR THEN 
REGIN 
TIHSTYPETABIFTHTSID  TYPEI3 
IF reFNRMSARRAYS TUFN 
BeayN 
ITtaTLINXTYPEY 
TF TYPFTABYET. ARR TYPE] ¢FORMSCHAR THEN ERRORCRB)3 
BENINC"V"s 1 OOOxTHTSL EVEL +THISINNEXS5)3 
TF THYSLEVELS1 Anm THISLEVELZCURLEVEL THEN ERRORCS)3 
GENCs%o1 5793 GeNINTCTYPETAB2ETHISIO, TYPFI 93 
GENC ost e793 GeNINTCTYPETAB3ETHISID, TYPFI)$3 
END ELSE ERROR( RA): 
FND FISF FRROR¢BRY 
END ELSF FRRORE193 
FND ELSE_FRRORCO)3 
TNSYMBOL $ 
TF CURSYscQMMA THEN 
REGIN 
GENC esl e793 
INSYMBOL 3 EXPRESSTANS CHECKTYPESCITs,CURTYPEDS e 
IF CURSY®CAMMA THEN 
BEGIN ; 
GENC es" e157 93 
TNSYMROLS 
TF CURSYSTDFENTIFTER THEN 
REGIN ; 
SEARCH) 
IF FOUND THEN 
REGIN 
_ TF THISTN, TOC) ASeaVAR OR 
— THISTA.L ING! ASesCONST AND BOOLFANCTHISINeFORMAL) THEN 
REGIN . 
VARTARLES _WRITFEXPRS 
IF CURTYPE>0 THEN 
IF TYPFTARI FCURTYPE J6 FORM*ALFA THEN ERROR(12)3 
END ELSF FRRORCBY 
ENN ELSE FRRORC1)3 
FND fF) SE ERRORCO)3 
END ELSF BFGTN FRRNRCBO)3 SKIPCRPAR) FND3 
FND FLSE REGIN FRROR¢CAQ)?: SKIPCRPAR) ENDS 
TF CURSY#RPAR THEN RFGIN FRRORC44)3 SKIPCRPAR) ENDS 
_ TF CURSY=RPAR THEN TNSYMAOL3 
FN ELSE BEGIN FRANRE3)2 TNSYMBOL ENDS 
GENC 545793 GFNINTOCARDANT) GENC%9%,9,7)3 


FNO nF PACKS 


PROCFDURE UNPACK S$ 

BEGIN 
INTEGER [TsT3 ; 
GENC"UNPACKE™s7 5193 INSYMAOLS 
YF CURSYSLPAR THFN 


80231000 
50232000 
50233000 
80234000 
50235000 
$0236000 
§0237000 
$0238000 
80239000 
50240000 
50241000 
§0242000 
50243000 
§0244000 
50248000 
50246000 
50247000 
50248000 
50249000 
50250000 
50251000 
80252000 
50253000 
50254000 
50255000 
50256000 
50257000 
50258000 
50259000 
50260000 
50261000 
50262000 
50263000 
50264000 
50265000 
50266000 
$0267000 
50268000 
50269000 
50270000 
50271000 
80272000 
80273000 
50274000 
50275000 
50276000 
50277000 
50278000 
80279000 
50280000 
50281000 
30282000 
30283000 
50284000 
80285000 
30286000 
80287000 
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REGIN 
TNSYMROL}. FXPRESSTON 
TF CURTYPE>O THEN YF TYPETARICCURTYPE),FORMMALFA THEN ERROR(1793 
TF CURSY=cOMMA THEN 
RFGIN = 
GENC™e"e1e793 TNSYMBO: 3 
IF CURSY®INENTIFIER THeN 
BEGIN . 
SEARCH} 
TF FOUND THEN 
REGIN 
IF THISTN.INCLASS@vaAR THEN 
BEGIN 
THTYPFTABIITHIS#M. TYPEY3 
TF T.FORMBARRAYS THEN 
REGIN 
ITsaT, tNXTYPE3 
IF TYPETABI Ts ARRTYPE) -FORMACHAR THEN FRROR(C aA)3 
IF THYSLEVEI >1 AND THYSLEVELZCURLEVEL THEN ERRORCS)3 
GENIN EVs 1Q00~THISLEVEL+THISINDEXs5)3. 
GENC™s%51e793 GENINTCTYPETABOITHISI DO. TYPFI)3 
GENC%e%515753 GENINTCTYPETAB3PTHISIO.TYPEI)3 
FND FLSF FRRNR CHADS 
EN? FLSF FRROR(AB)? 
END FLSE ERRORC1)3 
ENN ELSF ERROR(9)3 
INSYMBN| 3 
IF CURSY#CAMMA THEN 
BEGIN 
GENC™ "ote 7 93 S 
TNSYMAOQL 3 EXPRESSIONS CHECKTYPESCITsCURTYPE 93 
END ELSF BFGIN FRRNR(BO)S SKIPCRPAR) FNDS 
FND FLSE REGIN FRRORE RO): SKIPCRPAR) ENDS 
TF CURSY#RPAR THEN RFGIN FRRORCRO)S SKIPCRPAR) ENNS 
TF CURSYSRPAR THEN ~ TNSYMAOL 3 
FNM ELSE BEGIN FRRORE393 INSYMBOL FND3 
GENCE. %ete793 GFENINTCCARDENT)S GENC8)%5 95793 
FND MF UNPACKS 


PROCFNURE NEWOISPS 
BFGIN ~ : 
INTEGER T13 
tr CURN AME ta" 3000NFW" THEN GENC’NEW( 24,4) ELSE 
REGTN GENOWAISPOSE 754 33 AENC™C 54597) ENDS 
INSYMBNL3 
TF CURSY®SLPAR THFN 
REGIN 
TNSYMROL 3} 
TF CURSYSYDENTIFTER THEN 
REGIN 
SEARCH 
IF FOUNR THEN 
BEGIN | 
VARYARLES 
TF CURTYPE>0 THEN YF TYPETABICCURTYPEJ.FORMBPOINTERS THEN 
REGIN 


Reewe NEW, "OITSPOSE" 


50288000 
50289000 
50290000 
50291000 
50292000 
50293000 
50294000 
50295000 
50296000 
50297000 
50298000 
50299000 
50300000 
50301000 
50302000 
50303000 
50304000 
50305000 
50306000 
50307000 
50308000 
50309000 
50310000 
80311000 
50312000 
50313000 
50314000 
50315000 
50316000 
50317000 
80318000 
50319000 
50320000 
50321000 
50322000 
50323000 
50324000 
50325000 
50326000 
50327000 
50328000 
50329000 
50330000 
50331000 
50332000 
50333000 
50334000 
50335000 
50336000 
50337000 
50338000 
50339000 
50340000 
50341000 
50342000 
50343000 
50344000 
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WRITEEXPRS GENEMsme ie? 3 50345000 
TISSTYPETABLECURTYPE) .POINTTYPES 50346000 
TItaTYPETABICTIV.SeZE3 50347000 

IF 71>1023 THEN ERPOR(86)3 50348000 

GENINTETI)3 GENC™ 3% eo 7D3 50349000 

FND £) SE FRRORCBI 50350000 

END ELSF BFGIN FRRARCINS INSYMBOL ENDS §0351000 

FND FLSE FRRORCODS §0352000 

WHILE CURSY=COMMA NO 50353000 

REGIN INSYMBALS 50354000 

IF cURSY NEO TNENTYFIER THEN ERROR(9)3 50355000 

TF CURSY NEO RPAR THEN INSYMBOLY 50356000 

FND3 50357000 

FNN ELSE BFGIN FRRORCSA? SKIPCRPAR) ENO 50358000 

TF CURSYFRPAR THEN REGIN FrrORC46)3 SKIPCRPAR) ENDS 80359000 

TF CURSY®RPAR THEN TNSYMAO!? 50360000 

FAD AF NEWAISP3 50361000 
RUELANAHAAKEAAK LEK AAAKKRAK ALLY KHL AL ARAL AALAA KALLA ALLA LA LALLA AK LALXXH0001 000 
g %60002000 
%60003000 

x : %60004000 
% PART 63 Tue STATEMENT PARSER, %60005000 
% eq PTT O Taam sawewnen te %460006000 
¥ %60007000 
x %460008000 
x %60009000 
LELLL ULL ELL TLL LAL LULU K LY LEK HELGA MLE LLY ALLEL LALLY ALLL ALL AASLY LALLA LALLY RLVXBOOLO000 
60011000 

60012000 
60013000 

PROCFNURE STATEMENTS FORWARD 60014000 
60015000 

PROCENURE ASSTGNMENTS 60016000 
BFGIN 60017000 
INTEGER LEPTTYPES. 60018000 
LAREL ASSYIGNsFYXIT3 60019000 

TF FOUND THEN 60050000 
REGIN ie 60051000 

TF THISIM,TOCLASS#VAR OR 60052000 
THISIN.IOCLASS@ECONST AND BOOLFANCTHISIDeFORMAL) THEN 60053000 

RFGIN | 60054000 

— -VARTABLES LFFTTYPFraCiRTYPES 60085000 
ASSTGNt IF CURSY*ASSIGNSY THEN 60056000 
BEGIN FRROR( 2893 SKIPeASSIGNSY)3 60057000 

tr SYMKINACCURSYI@TERMINAL THEN GO TN ExTT3 60058000 

ENN} 60059000 

INSYMBN 3 60060000 

IF TYPFTABICLFEFTTYPE .eTRUCT2O THEN 60061000 

BEGIN 60062000 

FRROR (IS )3 60063000 

ENN ELSF 60080000 

BEGIN : 60081000 
WRITEFXPRS | GENO T=". 996)3 60082000 

TF CHECKNPTION ANN TYPETABICLEFTTYPE 3. FORMSCHAR THEN 60083000 
CHECKEXPROETYPFTAROCLEFTTYPE TsTYPFETABSCLEFTTYPE)) ELSE. 60084000 
FXPRESSTONS 60085000 
WRITFEXPR 60086000 
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CHECKTYPFSCLFFTTYPE srURTYPE)3 
ENDS 
FNO FLSE 
REGIN & FUNCTION ASSTGNMENT« 
IF THIS} EVELZCURLEVELes OR THISINDEX*CURFUNC THEN FRRORCS)3 
GENTOC"V"s OOOxTHTS! EVEL +THISINDEXs 593 LEFTTYPF Se THISIDe TYPES 
INSYMANLS GO TN ASSIGNS 
_ ENDS 
PNA ELSE 
RFGYN 
SKIPCASSTANSY)3 
TF CURSyeASSTGONSY THEN Gn TO ASSIGN) 
FNN} 
FxITs:. 
END Me ASSTGNMENTS 


PROCFOURE COMPSTAT3 
BEGIN 
INTEGER BEGINNUMS 
EARFL STATM} 


REGTNNUME aNUMBEGING peNUIMBE RING +13 MARGING” BY,BEGTNNUM)3 
GENC"BEGIN' 562393 
NO BEGIN 
7 IF CURSY SEMICOLON AR PURSY BBEGINSY THEN INSYMAOL3 
STATM! STATEMENTS 
GENCE ee 7)3 
IF CURSY@ELSFSY THEN ReGIN ERROR(20)3 YNSYMBOLS GO STATM ENDS 
IF SYMKINOPCURSY JS INITTAL THEN BEGIN FRROR(2193 GO STATM ENDS 
FNN UNTIL CURSYZSFMTCO MNS 
Fr CURSYZENNSY THEN 
RFGIN FRROR(2493 SKIPCFNDeY)3 
2 eg TF CURSYZENISY THEN aFGYN INSYMBOLS GO TO STATM FND3 
FN} 
GFNC" FAA sme ays MARGING™ F&,BEGINNUM)3 
TNSYMBOLS _ 
END MF COMPSTAT} 


PROCFNURE TESTAT) 
BFGIN 
LABEL EXITS 
GENCNIF Ms 356)5 
¥NSYMBNL 3 RAOLE PRS 
TF CURSYSTHFNSY THEN n 
RFGIN TF CURTYPP>0 THEN FReNARC27)3 
SKIP OC THENSY)3 
TF CURSYSTHENSY THEN, 
REGIN IF CURTYPF an TUFN ERRORC2793 
IF SYMK IND reUReYI@ETERMINAL THEN GO TO FyIT3 
FNN3 FNDS 
GRNC" THEN » 69 393 
TNSYMBALS STATEMENTS 
TF CURSYRELSESY THEN | 
REGIN GENC" ELSF%.65393 INeYMBOL3 STATEMENT END? 
ExItt 


60087000 
60088000 


60089000 


60090000 
60091000 
60092000 
60093000 
60094000 


60095000 © 


60096000 
60097000 
60098000 
60099000 
60100000 
60101000 
60102000 
60103000 
60104000 
60105000 
60106000 
60107000 
60108000 
60109000 
60110000 
60111000 
60112000 
60113000 
60114000 
60115000 
60116000 
60117000 
60118000 
60119000 
60120000 
60121000 
60122000 
60123000 
60124000 
60125000 
60126000 
60127000 
60128000 
60129000 
60130000 
60131000 
60132000 
60133000 
60134000 
60135000 
60136000 
60137000 
60138000 
60139000 
60140000 
60141 000 
60142000 
60143000 
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PROCFDURE CASESTATS 
BFGIN 


DEEINE CASRN SPUN TOON YS 38027 MOD MAXCASES#3 


RANNLEAN ZEROLAR» SFYRSTS 


CASFNUM!SNUMCASFEStZNUMCASER 41 J MARGINC*CR"sCASENUM 93 
TEMPVARNUME #NUMTEMPS$8NIIMTEMPS#+ 9 3 
tr TEMPVARNIIM>MAX TEMPS THEN ERRORC1693 ; . 
GENC "BEGIN. 6,393 GENTNC * Ts TEMPVARNUMs 295 GENC 8 a%2996)3 
TNSYMBAL3 FXPRESSIONS 
GENC™S% 515793 CASETYPFraCiuRTYPES 
TF TYPFTABIFCASETYPF), FORM>FLOATING THEN 
RFGIN FRRORCI793 CASETYPEIS0 ENDS 
YF CURSYZOFSY THEN es 
REGIN YF CASETYPF>O THEN FRRORC18)3 
SKIPENFSY)3 
TF CURSYSQFSY THEN YNSYMBOL ELSE 
; TF CASETYPF=0 THEN FRROR(18)3 
FENN ELSE YNSYMROL3 
nn BEGTN 
WHILF CURSY2SEMICOLON DO YNSYMBOLS 
FIRSTIRTRUES 
TF CURSY#FENOSY THEN 
REGIN 
GENC" TEs 3,693 
DO BEGIN = 
IF FIRST THEN FIRSTieFaLSE ELSE INSYMBOLS 
CONSTANTCCONVAL s CANTYPE 93 
TF CONTYP®E>O THEN 
RFEGIN: 
IF CASETYPFs0 THEN CASETYPESSCONTYPE ELSE 
CHECKTYPFS(CASFTYPEsCONTYPE D3 
GENTDCHTts TEMPVARNIIMs 2) 3 GENC@et, ie 7)3 GENINTECONVAL DS 
NCASELABSIsNCASFLAAS +13 
IF NCASFLARBS<MAYCAeCFS THEN 
BEGIN 
tr CONVALSO THEN, 
IF ZFEROLAR THEN ERROR¢31) ELSF ZEROLABt2TRUE ELSE 
REGIN | 
TtaCASFHASHECONVAL )3 
FR CieCASFTABFT WHILE C¥CONVAL AND C20 ON 
Tiatr T20 THEN MAXCASFES ELSE Tet3 
IF C¥O THEN ERPOR(C31) FLSE CASETABETI#sCONVAL3 
END} 
END ELSE. 1F NCASEL ARS#MAXCASES THEN ERRORC30)3 
IF CURSY2CNMMA THEN GENC™ AR%545593 
FND$ 
END UNTIL CURSYSCOMMAS 
GENC™ THEN, 65393 
IF CURSYFZCOLON THEN BERIN ERROR(26)3 SKIPCCOLON) ENDS 
IF CURSYSCNLON THEN INeYMBOL3 
STATEMENTS 


60144000 
60145000 
60146000 
60147000 
60148000 
60149000 
60150000 
60151000 
60152000 
60153000 
60154000 
60155000 
60156000 
60157000 
60158000 
60159000 
60160000 
60161000 
60162000 
60163000 
60164000 
60165000 
60166000 
60167000 
60168000 
60169000 
60170000 
60171000 
60172000 
60173000 
60174000 
60178000 
60176000 
60177000 
60178000 
60179000 
60180000 
60181000 
60182000 
60183000 
60184000 
60185000 
60186000 
60187000 
60188000 
60189000 
60190000 
60191000 
60192000 
60193000 
60194000 
60195000 
60196000 
60197000 
60198000 
60199000 
60200000 
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IF CURSY*SFMICNLON AND CURSYZENDSY THEN 
. Bee FRRORC21)3 SKYPCGFMICOLON) ENDS 
FN 
TF CURSY@SEMTCOLAN THEN AENC" ELSE%s 65393 
FNM UNTIL CURSYSSEMTCOLANS. 
TF CURSYZENNSY THFN BFAIN ERROR(24)3 SKIPCENDSY) ENDS 
GENC™ END. 55493 MARGIN" FF» CASENUM) J 
NUMTEMPStaniiMTEMPS a4 3 
Oo TNSYMBALS 
END nF CASFSTATS 


PROCFOURE WHILFSTATS 
BFGIN. 
LARFL STATM,EXITS 
GENC"WHILE™ 665393 
TNSYMBAL) ROOLEXpR? 
TF CURSYZDNSY THEN 
RFGIN TF CURTYPF>0 THEN FRENRC19)3 
SKIPONOSY)3 
TF cURSYZNNSY THEN 
RFGIN IF CURTYPF2n THEN ERRORC1993 


GO TO Yr SYMKINOCCURSYISINITIAL THEN STATM ELSE EXITS 


PND} FND3 
GENC™ HOM%,4,5)3 
. .YNSYMBOLS | 
STATME STATEMENTS 
Exits) 
END ne WHILESTATS 


PROCFNURE REPEATSTATS 
BFGIN — 
INTEGER REPNUMS 
LAREL NEWTRY3 


REPNUM!sNUMREPSIENIIMREPS#1 2 
MARGING” R",REPNUM)S 
GENC™DNs35693 GENC™RFEGING s653)3 
AO BEGIN 
INSYMBN 3 
NFWTRY! STATEMENTS 
GENC™S", 1,793 


IF CURSYSELSFSY THEN BeGIN ERRORC20)STNSYMBOLS3 GO NEWTRY END3 
IF SYMK INDE CURSYI@INITY AL THEN BEGIN FRRORC2193 GO NEWTRY FND 


FNMA UNTEL CURSYSSFPMTICOI ANS 

Te cCURSYFUNTILSY THEN 

BEGIN 
FRROR(2293 
WHILE CURSYFUNTILSY AND eyMKINDECURSYISINITIAL on 
REGIN INSYMRNLS SKIP CIINTEL SY) END} 

YF CURSYUNTILSY TREN GO 10 NEWTRY3 

FNIDS 

GENC® FND, 85493 GENCTIUNT EL» Oe 393 MARGINCG™ Us» REPNUM )3 

TNSYMBNLS ROOLEYXPR} 

FND nF REPPATSTATS 


60201000 
60202000 
60203000 
60204000 
60205000 
60206000 
60207000 
60208000 
60209000 
60210000 
60211000 
60212000 
60213000 
60214000 
60215000 
60216000 
60217000 
60218000 
60219000 
60220000 
60221000 
60222000 
60223000 
60224000 
60225000 
60226000 
60227000 
60228000 
60229000 
60230000 
40231000 
60232000 
60233000 
60234000 
60235000 
60236000 
60237000 
60238000 
60239000 
60240000 
60241000 
60242000 
60243000 
60244000 
60245000 
60246000 
60247000 
60248000 
60249000 
60250000 
60281000 
60252000 
60253000 
60254000 
60255000 
60256000 
60257000 
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a 60258000 
PROCFEHURE FORSTATS 60259000 
RFGIN | 7 60260000 

INTEGER VARTYPE Ss VARNIMel LIMSULIMS 60261000 

BOOLEAN DOWNS 60262000 

1 ABEL STATM3 60263000 

; 60264000 

GENC™BEGIN' 562393 60265000 

INSYMANL3 ; 60266000 

TF CURSYSINFNTYFTFR THEN 60267000 

-REGIN 60268000 
SFARCHS 60269000 
Tr FOUND THEN 60270000 
RFGIN 60271000 

VARNUM!=1ONOxTHTSLFEVELATHISINDEXS 60272000 
IF THISTD,INCLASS=#VAR AR 60273000 
THISTO.INCLASSSCNNST AND BOOLEANCTHISID.FORMAL) THEN 60274000 
BEGIN 60278000 
YF THYSLFVFL>4 ANN TUTSLEVEL<CURLEVFL THEN ERRORES)3 60276000 

TF THYSLEVEL>CURL FVEL THEN FRROR(83)93 60277000 
VARTYPEtsTHISTN. TYPE: 60278000 

TF TYPETABIITVARTYPES "FORMSCHAR THEN 60279000 
REGIN ~ 60280000 
LLIMt=TYPFTAB2TVARTYPE 23 ULIMteTYPETAB3LVARTYPE)3 60281000 

FND €1 SE RBFGTN FRROR?¢1293 VARTYPESe0 END? 60282000 
ENN ELSF ERRORGCA)) 60283000 
FND FLSE FRRARCY)3 60284000 

FNN ELSE ERROR(9)3 60288000 

TNSYMBNL $ 60286000 

TF CURSY#ASSIGNSY THEN 60287000 

REGTIN FRRORE2ZAD 60288000 

SKIPCASSTGNSY 93 60289000 
TF CURSYSASSTGNSY THeN INSYMROL ELSF 60290000 
TF SYMKINDECURSYIsINYTIAL THEN GO TO STATMS 60291000 

FNA ELSE INSYMBOLS | 60292000 

GENTDCMV Ts VARNUMS 593 GENC Hes ie 7D 60293000 

TF CHECKOPTYON THEN CHECKFYPRE(LLIMsULIM) FLSE EXPRESSINN3 60294000 

WRYITEEXPRS | 60295000 

GENC™S% 15793 60296000 


YF VARTYPE29Q THEN VARTYPF taCURTYPE ELSE CHECKTYPES¢VARTYPE sCURTYPE ) 360297000 


NUMTEMPSESNIIMTPMPS4¢3 TF NUMTEMPS>MAX TEMPS THEN ERROR(16)3 60298000 
TF CURSYSTNSY THEN TNSYMADI ELSE 60299000 
TF CURSYSDOWNTOSY THEN REGIN DOWNt=TRUFS INSYMBOL FND FLSE 60300000 
AFGYN TF CURTYPE>O THEN ERDOR(23)3 60301000 
SKYPCTOSY)) . 60302000 

TF CURSYyaTOSy THEN TASYMBOL FLSE 60303000 

RFGIN IF CURTYPE= TUFN ERROR(23)3 60304000 

IF SYMKTNDFCURSYI@INITTAL THEN GO TO STATMS 60305000 

ENN FND3 60306000 
GENIDC"T* sNUMTEMPS 5293 GEN OMe le 73 60307000 
TF CHECKOPTTON THEN CHREKEVPRCLLIM»ULIM) FLSE EXPRESSION} 60308000 
WRITEEXPR3 60309000 
GENC™S% odo 7 93 60310000 


yr VARTYPE=0 THEN VARTYPETeCURTYPF ELSE CHECKTYPES(VARTYPEsCURTYPE) 360311000 


TF CURSY#ONSY THEN 60312000 
RFGIN TF CURTYPF>0 THEN FRoORC19)3 60313000 
SKIPEROSY)S 60314000 
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TF CURSY@DOSY THEN INSYMBOL ELSE 

YF CURTYPES0 THEN FReNRC19)3 
FNM ELSE INSYMBOLS 
GENC"FAR' 54.593 GENTNO™V". VARNUMSS)3 GENOMES 15793 
BENTO EC "Vs VARNUMS 5393 GENC# Nein? D3 
TF DOWN THEN GENCYNOWNTAs 792) ELSE GENC"UPTONs 55493 
GENTDC"T™ sNIIMTEMPSs 2D GENe™ DO%s4s5)3 


STATMS STATEMENTS 


GFNC" FNDs5 2493 
NUMTEMPSt eNIIMTEMP S04 3 


FND AF FORSTATS 


PROCENURE GOTOSTATS 
BEGIN 


INTEGER 13 
YNSYMANLS 
Tr CURSYBINTCONST THEN 
RFGTN YReNUMLARSS | 
WHILF Y24 ANN LARTABrT). sLABVALACURVAL DO yemreds 
TF fs THEN FRRORCI5 43 
GENCHAO%s 35693 GENIRCTL™sCURVALS4)3 
TINSYMANL 3 
FNN ELSE ERRORCIO)3 


FND NF GOTMSTAT$ 


PROCFNURE WITHSTATS 
BEGIN 


TNHTFGER STARTLEVFL »VERYFIRGTWITHSYMsI3 
RFAL D} 


STARTLFVELtaTOPLFVEL3 VERVFIRSTWITHSYMteNWITHSYMS$ 


AN REGIN — 
TNSYMBOLS : 
TF CURSYSTDENTIFIFR THEN 
REGIN ; 
SEARCH — 
IF FOUND THEN 
BEGIN ; ; 
TF THISIN.LINCLASSsVAR THEN 
REGIN 
VARTABLES 
IF CURTYPF>0 THEN 
IF TYPETARICCURTYPF), ~FORMZRECORD THEN ERROR(98)3 
IF SIMPLEVARITARIE THEN 
REGIN PUTSYME"FY)3 TNSIDEBRACKFTStaTRUE ENN3 
IF TOPLEVEL<EMAYI EVeL THEN 
BEGTN 
TOPLEVELteTOPIEVEL+13 
9) jNAMFTAB La TYPETAARSICURTYPE .RECTABS 
NRECTYPFARCURTYDES 
fn. .NUMPNTRSINW? THe sNUMPOINTERSS 
Ns SFIRSTWITHSYMS=NWITHSY MSS 
n *BRACKFTSINW? THs mREALCINSIDEBRACKETS)3 
Te NWITHSYMS 4+NUM&YMS>MAXWITHSYMS THEN ERROR(43) ELSE 
FOR ft=41 STEP 1 INTTL NUMSYMS 90 
REGIN 


60315000 
60316000 
60317000 
60318000 
60319000 
60320000 
60321000 
60322000 
60323000 
60324000 
60325000 
60326000 
60327000 
60328000 
60329000 
60330000 


60331000 


60332000 
60333000 
60334000 
60335000 
60336000 
60337000 
60338000 
60339000 
60340000 
60341000 
60342000 
60343000 
60344000 
60345000 
60346000 
60347000 
60348000 
60349000 
60350000 
60351000 
60382000 
60353000 
60354000 
60355000 
60356000 
60357000 
60358000 
60359000 
60360000 
60361000 
60362000 
60363000 
60364000 
60365000 
60366000 
60367000 
60368000 
60369000 
60370000 
60371000 


i : fi ‘ : : : : i : . i é F 


so tte 


—_— > 


WITHTARFNWETHSYMSI38SSYMTABCTD$ 
_NWITHSYMStanW? rHSYMS+ 473 
FyO3 : & 
M.LASTWITTHSYMsaNwItTHSYMS=43 
NYSPLAYETOPLFVELAtsDs 
END ELSF FRROR(RG)? 
PND fF, SE RFGIN FRRORS ADS INSYMBOL FNDS 
ENN ELSF BFGIN FRRARCI YS YNSYMBOL FND3 
 -FND PLSE REGIN FRROR(O)S TNSYMBOL ENDS 
NUMSYMS#a03 
NUMPOINTERS ! 03 
PNA UNTIL CURSYZCOMMAS 
TF CURSYZDOSY THEN ae 
AFGIN FRROR (L993 SKIP¢nOSy)3 
TF CURSYsMOSY THEN INSYMBOLS 
FNN ELSE INSYMBOL3 
STATEMFNT3 = ao 
TOPLEVEL P@STARTLEVELS NWYTHSYMS F2VERYEIRSTWITHSYMS 
FAD aF WITHSTATS 


PROCFNURE STATEMENTS 
BEGIN 
INTEGER 13 
LAREL LABFOUNDS 
TF CURSYSINTCONST THEN % see LABELED STATEMENT #0 
BFGIN 
FOR TIsFIRSTLAR STEP 1 UNTIL NUMLABS 00 
TF LABTARFI). LARVAL @CURVAL THEN 
RFGIN IF LABTABET 4. LARDEE st THEN ERRORC31)3 
LABTABIT) .LABDFFIas3 
GO TO LABFOUNDS 
FND} . 
—  FRROR CISD , 
LABFOUND! GENIDNE@L*,CURVAL e493 GENC™3%o15793 
TNSYMROL3 
TF CURSYXCOLAN THEN 
BEGIN ERRMR(2693 | ee 
SKIPCCOLONDS Tr CuRSYSCOLON THEN TNSYMBOLS 
_ END FLSE tNSYMBNL 3 
FADS 


COMMENT «ee START MF STATEMENT wee 3 


TE CURSYSINENTYFIFR THEN 
RFGIN | 
SFARCHS 
TP FOUND THEN 
REGIN i ae 
IF THISTN.INCLASS#VAR AR 
THTSIMeINACLASSSCONST AND BOOLEANCTHYSIO.FORMAL) OR 
THYISTO,TOCLASSm@FIINC THEN ASSIGNMENT ELSE 
TF THISTO.IMCLASSSPROC THEN 
BEGIN . 
TF THYSLFEVFLeO THEN 
BEGIN 


% #e* INTRINSIC PROCEDURE w#4* 


60372000 
60373000 
60374000 
60375000 
60376000 
60377000 
60378000 
60379000 
60380000 
60381000 
60382000 
60383000 
60384000 
60385000 
60386000 
60387000 
60388000 
60389000 
60390000 
60391000 
60392000 
60393000 
60394000 
60395000 
60396000 
60397000 
60398000 
60399000 
60400000 
60401000 
60402000 
60403000 
60404000 
60405000 


60406000 


60407000 
60408000 
60409000 
60410000 
60411000 
60412000 
60413000 
60414000 
60413000 
60416000 
60417000 
60418000 
60419000 
60420000 
60421000 
60422000 
60423000 
60424000 


60425000 | 


60426000 
60427000 
60428000 
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IF CURNAMF{ a" SOWRI TES THEN PWRITECFALSE) ELSE 60429000 

IF CURNAMELa"7WRITeL”™ AND 60430000 

CURN AMF2a"00N00AQN" THEN PWRITECTRUF) ELSE 60431000 

tF CURNAMFY @"4OOREAN" THEN PREADCFALSE) ELSE 60432000 

TF CURNAMF 1 = "6READ)_N" THEN PREADCYTRUE) ELSE 60433000 

TF CURNAMF{s"40NPAGE”™ THEN FILFHANMLING(S) ELSE 60434000 

IF CURNAMF { =" 3000GeT" THEN FILFHANODLING(2) ELSE 60435000 

IF CURNAMFY =" 3000PiT" THEN FILFHANDLING(1) ELSE 60436000 

tr CURNAMF 1 s"SQRESeT" THEN FILFHANDLING(C3) ELSE 60437000 

IF CURNAMF1@"7REWRET™ AND 60438000 
CURNAMF2m"00N00RF™ THEN FILFHANNLING(4) ELSE 60439000 

IF CURNAMF1="3000NeEHW" THEN NEWOISP ELSE 60440000 

IF CURNAMF{a"7N7SPAS" AND 60441000 

_ CURNAMF2m"00N00RF" THEN NEWDYSP ELSE 60442000 

IF CURNAMF{ @"40OPACK" THEN PACK ELSE 60443000 

IF CURNAMF 1 @"6IINPARK™ THEN UNPACK ELSE ERROR(O)3 60444000 

FND FIL SE PASSPARAMS$ 60448000 
WRITFEXPRS 60446000 

END ELSF BFGIN FRRORC1 493 SKIPC99) ENDS 60447000 

FND FLSE REGYN FRRORCT)3 ASSIGNMENT ENDS 40448000 

PND OF TDENTIFYER FLSF 60449000 

TF CURSYSRFGINSY THEN eOMpSTAT FLSE 60450000 

TF CURSY#IFSY THEN fFSraT FLSE 60451000 

Te CURSYSCASESY THEN cAS@eSTAT ELSE 60452000. 

TF CURSY@WHILFSY THEN WHY FSTAT ELSE 60453000 

TP CURSYSRFEPEATSY THEN PR REPCATSTAT FLSE 60454000 

TF CURSYRFORSY THEN FORETAT FLSE 60455000 

TF CURSYSWTTHSY THEN wITUSTAT ELSE 60456000 

TF CURSY@GNTOSY. THEN GOTASTAT ELSE 60457000 

TF SYMKINDECURSYISTERMINAL THEN 60458000 
REGAIN FRRORC13)93 INSYMRALS SKYIPCSEMICOLON) END3 60459000 

END nF STATEMENTS 60460000 
XURAK ALLEN LARLLAAY ALK LY AKL KRY AK RUSK RSVAL ASK LLRARLTLKKSKA URAL REKLX REZ POOOLO0O 
£ %70002000 
x %70003000 
% 7 . %70004000 
z _ PART 78 TYPE DECLARATIONS. %70005000 
> 4 0 gy OH Py on Oe wD oe a oe %70006000 
% %70007000 
x %70008000 
% %70009000 
LEVVVLAKVULULLA UV LLAY RUKH LAK YALL GLA LUTELLLALLLLLL LEVEL LLATYLEYLALULEKLAALUXXPFOOLOONO 
70011000 

70012000 

REAL VALX4eVALY¥ 93 70013000 
INTEGER TYPEX{s TYPFYD3 70014000 
BNOLFAN PACKED) 70015000 
= fe ‘ DAL 70016000 
PROCFHURE FIELMLISTCRECTARSFIRETADORsLASTADDR)S 70017000 
VALUF RECTABSFIRSTANNRS 70018000 
INTEGER RECTABsFIRSTANNRsLASTANMRS 70019000 
FARWARN 70020000 
of fee ee 70021000 
NEP INE SUBRANGF gs %eee SUBRANGE NECLARATION #** 70022000 
BFGTN p PEPE TESCO SCRA TCO ELEC CoS SS 70023000 
CONSTANTEVALX 1 + TYPFXS D3 70024000 

Te TYPFTABICTYPFXI3.FMRM>CUAR THEN ERRORCI193 70028000 
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TF CURSYSONUBLFANT THEN FReORCS3)3 70026000 
JNSYMBOLS 70027000 
CONSTANTEVAL X20 TYPEX2 D3 | 70028000 
TF TYPFX1>0 AND TYPFX2>0 TORN 70029000 
TF TYPEX¢#TYPFX? THEN ERPORC11) ELSE 70030000 

' Tr VALX4>VALK2 THEN FRROR(S4)3 70031000 
TItaTYPETARSCTYPFY1) FIRMS IF TisSYMBOLIC THEN T1i!12SUATYPE 70032000 
NEWTYPFS TTYPE S @TYPEINNEX? ; se 70033000 
T1.SIZFrwTSrZl tats TILSTRICTISOS TL sMAINTYPE Ss TYPFX1 J 70034000 
TYPFTARICTYPEINDFXI8sT1$ 70035000 
TYPFTARSCTYPEINMEXI2eVAl X47 TYPETAB3CTYPEINDEXI& VAL X23 70036000 
ENO NF SUBRANGF #3 70037000 
70038000 

x as ; a ok Se 70039000 
PROCFNURE TYPENFCLETTYPFsTSTZEy3 70040000 
INTEGFR TTYPEsTSI7&F3 70041000 
BEGIN | 70042000 
PROCEDURE TYPERRCFERRNUMS TT VPE es TSIZE DS 700483000 
VALUE FRRNUMS : 70044000 
INTEGER FRRNUMSTTYPRSTSYZE? 70045000 
RFGIN FRRORCERRNUMS3 70046000 
ae TTYPES3TSr7F iO} 70047000 
FND3 70048000 
een 70049000 

TNTEGER RECTINYsARRSTRUCT oT yvsSXe Tilo ToT ae ToN3 70050000 
BOOLEAN FIRST? 70051000 
nots 70052000 
PACKEDI@FALSE} 70080000 
TF CURSYRINFNTTFTFR THEN ZSuue SIMPLE TYPE DECLARATION ***70081000 
RFGIN Reeateeat inate ete a kin tee cee 70082000 
SFARCHS 70083000 

TF FOUND THEN 70084000 
REGIN : ; Bit 70083000 

IF THYISTDeTNCLASS@TYPFE THEN 70086000 
BEGIN | - . 70087000 
TTYPFESTHTSIN. TYPES TSIZEtsTYPETARIFTTYPE].SITZE3 70088000 
INSYMADLS 70089000 

ENN FELSF IF THISTD.1NCi ASSSCONST THEN SUBRANGE 70090000 

a ELSF TYPERRCO7TsTTYPESTSIZE)3 70091000 

FND FLSFE REGIN TYPFRRe te tTYPEsTSIZE)3 INSYMBOL ENDS 70092000 
FNM ELSE 70093000 
tr CURSYSCHARCONST nr CHIRSYePLUS OR CURSY@MINUS THEN SUBRANGE FLSE 70094000 
YF CURSY@LPAR THEN 70095000 
RFGIN _ 70096000 
Nieg3 : eee . 70097000 
NEWTYPES T3.LTNCLASS#EeCOnST$ T3.TYPESETYPEINNEXS 70098000 
NO BEGIN | 70099000 
INSYMBAN 3 = 70100000 

IF CURSYSINFNTIFIFR THeN 70101000 
BEGIN 70102000 
NFWNAME (CURNAMF 1 sCURNAME2sCURLEVEFL 3 70103000 
T3,INFOteNS NAMPTAR aFCURLEVELs THISTNDEXIJt=T33 70104000 
Nteneds TNSYMBO! 3 70105000 

ENN ELSF FRRORCO)3 ‘ 70106000 

FND UNTIL CURSY*SCOMMAS 70107000 

TF CURSYRPAR THEN BFGIN FRROR(46)3 SKIPCRPAR) ENN} 70108000 
TISSSYMBN ICS TI.STRICTesO3 70109000 
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TLSTZEIzTST7FIz13 TTYPeieTYPEINDEX3 


TYPETABLIOTYPETNDEXKItaTis 
TYPETABOETYPETNOFYItan}y TYPETARSETYPEINDEXI] 2aN@t3 


TF CURSYSRPAR THEN YNSYMROL3 


FNM ELSE 
TF CURSYSARROW THEN Zewe PNINTER DECLARATION #ee 
RFGTN Rekha eee ee hk 
TNSYMROL? 
TF CURSYSTDENTIFIFR THEN 
RFGIN 


NEWTYPES TTYPF sm TYPE INDEX TIM=POTNTERSS 

TI.SIZFIeTSyZFtais Th. "STRUCTIa@03 

TYPETARILTYPETNNEXI IST 43 

SFARCHS 

IF FOUNN THEN 

BEGIN. _ 
tF THYSIN. INCLASSaTYBFS THEN 
TYPETABIECTYPETNDFY 1 ePOINTTYPEIMTHISINe TYPE FLSE 
TYPERRC PS TTYPFSTSTZE SS 

ENN ELSe 

BEGIN 


70110000 
70111000 
70112000 
70113000 
70114000 
70115000 
70116000 
70117000 
70118000 
70119000 
70120000 
70121000 
70122000 
70123000 
70124000 
70125000 
70126000 
70127000 
70128000 
70129000 
70130000 
70131000 


TF NUMPNTRS<MAXPNTRS THEN NUMPNTRStaNUMPNTRS#$ ELSE ERRNR(52)370132000 


PNTRTABICNUMPNTRS TI mrlIRNAME 43 PNTRTAB2CNUMPNTRS I]t aCURNAME23 
PNTRTAB3INUMPNTRS1 tavYPEINDEXS 
ENN 
INSYMBN 3 
FNO FLSE TYPFRROOSTTYPES TSIZED3S 
FNS OF POINTER MFCLARATTON FLSE 
RFGIN 
te CURSYSPACKENSY THEN BegIN PACKED&sTRUES YNSYMBOL FND 


TF CURSYSARRAYSY THEN %ewe ARRAY NECLARATION eee 
REGIN Leer a eee ed kkeeekaekhkekik 
INSYMBN 3 
IF CURSYALBRACKFT THEN FRRORC47) ELSE INSYMBOL3 
TiadS FIRSTIRTRUES 
DO BEGIN 
TF FIRST THEN FIRSTEsFALSE ELSE INSYMBOL$ 
TYPENFECLETXs8¥)3 
tr TX>0 THEN 


REGIN 
IF eee tas *FORM>CHAR THEN ERRORC48)3 
TUPRARRAYS3 *INVTYPELSTX3 TL,ARRTYPESaT$ 


roLetyerTansetya) TIteTYPETABICTXV 
IF T3"T2>1092 THEN FRRORC614 13 
TILSIZFraMING1093e73" T241)3 
NEWTYPFS 
TYPE TABI CTYPETNREX@95793 
TYPFTABOPTYPE TNNEX9 mT 23 TYPETAB3PTYPE INDEX] &eT 33 
TIBTYPFYNNF YS 
FNDS$ 

ENN UNTTL CURSYsCOMMA3 

IF CURSY#RARACKFT THEN FRRORCS9) ELSE INSYMBOLS 

IF CURSY*ZOFSY THEN AFEGIN ERRORC18)3 SKTPCOFSY) FND3 

INSYMBOL 3 

TYPEDECL CTXsSK93 


70133000 
70134000 
70135000 
70136000 
70137000 


70138000 


70139000 
70140000 
70141000 
70142000 
70143000 
70144000 
70145000 
70146000 
70147000 
70148000 
70149000 
70150000 
70151000 
70152000 
70153000 
70154000 
70135000 
70156000 
70157000 
70158000 
70159000 
70160000 
70161000 
70162000 
70163000 
70164000 
70168000 
70166000 
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@ 
IF TYPFTABICTYI.FORMAFYLES THEN ERROR(40)3 70167000 @ 
ARRSTRUCTISTYPFTARIFTX1, STRUCTS 70168000 
WHILE T>0 90 70169000 
BEGIN 70170000 @ 
TIMETYPETABIETIZ T3esTieARRTYPES 70171000 
TIGARRTYPFEmTYS T1,eTRUCTHSARRSTRUCT I SARRSTRUCT S413 70172000 
TLSSTPEMSSKISMING 1O2neSKXTL SIZED 70173000 @ 
TYPETABICTIG@T(S TXesTs Ties 70174000 
ENDS 70175000 
TTYPEM@TX) TSTZERMSX$ 70176000 e 
FND OF ARRAY DFCLARATION FLSE 70177000 
. : . 70178000 
TF CURSY@FILFSY THEN Sere FILE DECLARATION se 70179000 e 
REGIN. |. Pewee ee eee ek eee thaw ke 70180000 = 
INSYMBN 3 70181000 
IF CURSYZOFSY THEN 70182000 @ 
BEGIN FRRORCIB)3 70183000 = 
TF CURSY#TNENTIFYFR THEN INSYMBNL3 70184000 
ENA ELSF INSYMBOLS 70185000 @ 
TYPENEC! (CTX »Sx)3 70186000 
IF TX>0 THEN 70187000 
BEGIN Tr=TYPFTARICTYI3_ 70188000 @ 
TE TAFORMPFILES THEN ERRORC5O) FLSE 70189000 
OTF TESTRUCTD>1 THEN ERRORCG9)S 70190000 
ENN3 70191000  ) 
NEWTYPFS TYYPEL@TYPEINDEXS 70192000 
TiimtF TesFORMECHAR THEN TEXTFILE ELSE FILES 70193000 
TLLSIZFIRTSTZFteSKs TT LFILETYPEtSTX3 70194000 ® 
TI.STRUCTIELS 70195000 . 
TYPETABICTYPFINDEXT¢8T33 70196000 
PND OF FYI E NECLARATION FLSF 70197000 @ 
70198000 
Te CURSYSSETSY THEN Keee SET DECLARATION wee 70199000 
BFGIN TET TTT I LETT LITT TTT et 70200000 =] 
INSYMBO 3 | 70201000 
IF CURSYZNFSY THEN 70202000 
BEGIN FRROR(1A)3 70203000 @ 
TE CURSYD>CHARCONeT THEN TNSYMBOL3 70204000 . 
ENN FELSF INSYMANLS 70205000 
TYPFNECI (TXsSX)3 70206000 @ 
IF Tx>0 THEN 70207000 
BEGIN . 70208000 
TF TYPETABIITXI.FARMSCHAR THEN ERRORC48) ELSF 70209000 @ 
TF TYPETABOLTXI<0 OR TYPETAB3ETXI>38 THEN ERRORCS1)3 70210000 . 
ENMS | een 70211000 
NEWTYPF3 TTYPFIETYPETAINEXS 70212000 ® 
TipmSETS Tle SFTTYPFierys TLSSTRUCTIAO3 70213000 
TAU,SIZFrersrzrte|(3 TYDETABLCTYPEINDENII@TS3 70214000 
TYPETARSE TYPE INDEX TIS TVPFTAB2PTX 33 70215000 @ 
TYPETARSETYPFINDEX 11 =TVPETABSETX 13 70216000 - 
FNO MF SET DECLARATION Fi SE 70217000 
- . 70218000 @ 
TF CURSYM@RECORMSY THFN Zawe RECORD DECLARATION ae 70219000 n 
BFGIN a wae of Tame RHREEKAKE HERE KEK 70220000 
IF LASTREC@y>CURLEVFL THEN LASTRECHt@LASTREC#1 FLSE ERRORC5S5)3 70221000 @ 
RECINXteLASTRECS 70222000 . 
BLOCKTARCRECTINY I$ sNIIMB) OCKS# BNUMBLOCKS41 3 70223000 ° 
@ 


Bh eg, 
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INSYMBMI $ 
FIFLOLISTCRECINY202SX)2 
IF SX>1N22 THFN REGIN FRROR(56)3 Sx?#1022 ENDS 
NEWTYPES TTYPE ESTYPE INDEX : 
TIPMRECAHRODS TI,RFCTABSaRECINXS TA,STRUCTIRM 
TISSIZFyeSTSTZFIRSXS TyPETABILCTYPETNDFXItaTi3 
TYPETARSETYPETNDEXI¢e0: TYPETAB3LTYPFYINDEX]8eSx=43 
IF CURSYZENNDSY THEN BEATN ERROR(C24)3 SKIPCENDSY) FND3 
IF CURSY@ENNSY THEN INeYMBOLS 

_ FND FLSE REGIN FRRORCH)S SKIPC99) ENDS 

FNM 

END AF TYPFOECL? ; 


PROCFNURE FIELNLISTCRFECTARSFIREeTADORSLASTADDRYS 
VALUF RECTARSFIRSTANNDRS 
INTEGER RECTABsEIRSTANNRSLASTANDRS 
BEGIN seh: achat 
INTEGER ARRAY TLISTFORL 1ST; FNGTH)3 
INTEGER LYSTINXS — 
INTEGER CASFTYPFs ANNReMaX annRe INDEXSCTYPE »TXeSXeTlsT3IeL LIM, ULIMs,T3 
ANNLEAN FIRSTS 
RFAL CvAL3 
LARFL CASETYPETNSCASFPARTsexXIT3 


ANNRtsFIRSTADORS 
NN BEGIN 
WHILF CURSY@SFMICOLON MO TNSYMBOL3 
TF CURSYMCASFSY THEN a0 70 CASEPART) 
TF CURSYSTDENTIFIFR THEN 
REGIN a 4 nae 
LISTINX&£=03 FIRSTEsTRIFS 
na REGIN 
TF FIRST THEN FYIRSTHtaFALSE FLSE INSYMBOLS 
TF CURSYSTNENTIFTER THEN 
BEGIN 
tr | ISTINXD>LTSTI ENATH THEN BEGIN FRRORC3793 LYSTINX!2#0 ENDS 
LISTINYS aL ISTINY#! ? 
NEWNAMF CCURNAMF4sCliRNAME2,RECTAR)3 
ILISTCLISTINX Ifa THYS INDEX? 
_ INSYMBOLS 
FND €| SE 
REGIN ERROR(9)3 
IF CURSYSCNMMA THEN INSYMBOL3 
FND3 
ENN UNTYL CURSYSCOMMAS 
TF CURSY#CNLON THEN BEeAtN ERROR(2693 SKIPCCOLON) ENDS 
INSYMAD) 3 
TYPENEC! CTXs5X93 
IF TX>0 THEN TF TYPE TARIE TX Je FORMZFILES THEN ERROR(S7)3 
3. INCLASStsVAR3 TIaTYPEIRTXS 
FOR Yim} STEP 4 UNTTL 1 TSTINX O00 
BEGIN — Ss 
TRLINFOPRANNRS ANNReaMINCADNRSSX51024)3 
NAMETARSCRECTARS TI TSTrLIIIRT 3s 
ENN) 
FND} 


70224000 
70225000 
70226000 
70227000 
70228000 
70229000 
70230000 
70231000 
70232000 
70233000 
70234000 
70235000 
70236000 
70237000 
70238000 
70239000 
70240000 
70241000 
70242000 
70243000 
70244000 
70245000 
70246000 
70247000 
70248000 
70249000 
70250000 
70251000 
70252000 
70253000 
70254000 
70255000 
70256000 


70257000 


70258000 
70259000 
70260000 
70261000 
70262000 
70263000 
70264000 
70265000 
70266000 
70267000 
70268000 
70269000 
70270000 
70271000 
70272000 
70273000 
70274000 
70275000 
70276000 
70277000 
70278000 
70279000 
70280000 
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A 
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ENN UNTIL CURSYSSFMTCOL ANS 
LASTADDRERANDRS 
an TO FXITS 


CASEPART! eae? Pens 
LTSTINX##O3 LASTANMREMADDRS INDEXtz@43 
TNSYMBNL I 
TF CURSY@INENTTFIFR THEN 
REGIN — 
SFARCH3 a: hee 
TF FOUND AND THISTM.TACLASSSTYPES THEN GO TO CASETYPFID) 
NPWNAMECCURNAMF Ys CURNAMESsRECTABDS INDEX ESTHISINDEXS 
INSYMBOL3 
TPF CURSY#COLON THEN FRROR(26)3 
TNSYMBOL3 
TF CURSY@TDENTIFIER THEN 
RFGIN 7 
SEARCH3 
IF FOUNN THEN 
BEGIN 
TF THYSIN. INC! ASSmTYDFS THEN 
REGIN 
CASETYPEID: CASFTYPFISTHISTN, TYPES TCUISTYPETARICCASETYPE3 
LLIMEmTYPFTABPF CASE TYPES ULIMssTYPETAB3(CASETYPET3 
TF TLeFORM>CHAR THEN FRRORC4B)S 
IF TNDEY20 THEN 
BEGIN : 
TAeINCLASStavaR} T3eTYPFISCASETYPES T3.TNFOSMANDRS 
ANDRIsLASTADNRtRANDR41) NAMETAR3CRECTABsTINOFXI22T 33 
END} 
INSYMBNL 3 
FND €| SE RFGIN FRROR?7)3 SKIPCOFSY) FND3 
ENN ELSF BFGTN FRAORC193 SKIPCHFSY) ENDS 
FNO FLSE REGIN FRROR(O)S SKIPCOFSY) ENDS 
FND ELSE BRAIN ERRARCO)S SwTPCOFSY) ENDS 
Te CURSYSNESY THEN BEGIN FPRORC18)3 SKIPCRPAR) ENDS 
-YF CURSYSOFSY THEN TNSYMBD! 5 
_vF CASPTYPFeO THEN AEGTIN Li IMER@eMAXINTS ULTME@MAXINT ENDS 
mn BEGIN 
WHILF CURSY=SFMICOLON NO YNSYMBOL3 
TF CURSY<CHARCONST OR CUPSYePLUS OR CURSY®MINUS THEN 
BEGIN : 
FIRST@aTRUF 
DO REGIN 
TF FIRST THEN FIRSTteFALSE FLSE INSYMBOL 3 
CONSTANTOCCVALS CTYPE DF 
TF CTYPE>Q THEN 
BEGIN 
IF CASFTYPE 20 THEN CASETYPEIS@cTYPF ELSE 
TF. CVALELLIM. OR_ CVAL>ULIM THEN EFRROR(14) ELSE 
CHECKTYPFSCCASFTYPE sCTYPE 93 
TF L USTINX2LTSTI ENATH THEN BEGIN FRROR(C 3093 LISTINX8#0 ENDS 
LISTINXISLISTINYS1 3. 
ILYSTELTSTINNI§eCVALS leis 
WHILE YLYSTrrieevar BO risyet3 
IF T<LeSTINX THEN PRRORC31)3 
FNDS 


70281000 
70282000 
70283000 
70284000 
70285000 
70286000 
70287000 
70288000 
70289000 
70290000 
70291000 
70292000 
70293000 
70294000 
70295000 
70296000 
70297000 
70298000 
70299000 
70300000 
70301000 
70302000 
70303000 
70304000 
70305000 
70306000 
70307000 
70308000 
70309000 
70310000 
70311000 
70312000 
70313000 
70314000 
70315000 
70316000 
70317000 
70318000 
70319000 
70320000 
70321000 
70322000 
70323000 
70324000 
70325000 
70326000 
70327000 
70328000 
70329000 
70330000 
70331000 
70332000 
70333000 
70334000 


- 70333000 


70336000 
70337000 
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END UNTTL CURSYZCOMMAS 70338000 

TF CURSYZCNLON THEN BEAIN ERROR(26)3 SKIPCLPAR) ENNS 70339000 

IF CuRSYSCNLON THEN YNeYMBOL3 70340000 

Ie CURSYSLPAR THEN 70341000 

BEGIN 70342000 
TNSYMROLZ FIFLOLEST,RECTABs ADDR»MAXADDR)3 70343000 

TF MAYADNR>LASTANAR THEN LASTADDRE@MAXADDRS 70344000 

TF CURSY#RPAR THEN BEGIN ERRORC46)3 SKIPCRPAR) END3 70345000 

TNSYMROL3 70346000 

ENN ELSF ERRORCSA)S 70347000 

FND3 70348000 

FNM UNTIL CURSY NEO SEMFCO) ONS & 70349000 
EYXIT?. 70350000 
END AF FIFI OLISTS 70351000 
VULLALLALAL LLL LY LAH LL HLA LL LK LLAAK LLL LALLY VEL HLL LS AA LHL VUK ALYY YXXX¥ B0004000 
x . %80002000 
% %80003000 
8 : %80004000 
% PART 88 THE PROCENURE BLOCK, %680005000 
+ 4 SQ PONSA Raw et enoaunan em %80006000 
% %80007000 
b 4 %80008000 
x *80009000 
LLAVLAAA ALAC LK TAA LAK ALS L ALLL AL SH ALA LARLYLALSL AKL LAL ULLAL ALLL AALKLVA KY AL XXX HOO O00 
80011000 

80012000 

eae 80013000 

PROCFNURE DPCLAREVARSCPARAM, TARSFIRSTsLASTsLF yFL)3 80014000 
VALUF PARAMSFIRSTsLASTsLFVFI 3 80015000 
INTEGFR ARRAY TABLONS — 80016000 
INTEGER FIRSToLASToLFVFI 3 80017000 
BNOL FAN. PARAM$ 80018000 
BEGIN 80019000 
INTEGER LEVEL 1000» TYPsNAMNAMTAB STi sls JeRECSIZES 80020000 
RONLEAN REAL VAR» ARRAYVARSF eRSTDIMPFXTFILFS 80021000 
ALPHA FNAME} . 80022000 
INTEGER FNLENGTHSFENSTARTS ¥ 80023000 
80024000 

LFVELINOOt RL EVEL 10003 80025000 

FOR Iter IRST STFP 1 UNTFL 1 AST DO 80026000 

RE GIN 80027000 
NAMteTABET), 911093 NAMTABtmNAMETAB3PLEVELS NAMI? 80028000 
TYPtaNAMTAB,TYPFS TismTYPETABILTYPT3 80029000 

TF NAMTAB.IDCLASS GFO FUNC THEN 80030000 

RFEGIN - 80031000 

IF RFALVAR OR ARRAYVAR THEN 80032000 

BEGIN 80033000 

GENCE 15793 80034000 

RFALVAR! mARRAYVARS af ALSED 80035000 

Enns 80036000 

IF NAMTAB. TNC] ASSSFIINC THEN GENC"REAL'» S504 )3 80037000 
GENC™PRACENU", A, 1 3 80038000 
GENTNC*V"SLEVEL 10004NAMsS 3 GENC™ 3%, 45793 80039000 

FNO FLSE 80040000 

Te T1,STRUCT#O THEN Reese SIMPLE TYPE wae 80041000 

REGIN | 80042000 

IF ARRAYVAR THEN BFGIN GENC'3%549793 ARRAYVARISFALSE END3 80043000 
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IF REALVAR THEN GENES wets?) ELSE 
BEGIN GFNE"RFAL #8) ay} REALVAR#t TRUE ENDO} 
GENTDC*V"»LEVFL10006NANS5 93 


o 


> 


FND ELSE 

RFGIN 
Ir REAL VAR THEN BFGYTN CENC"S"54579$ RFALVARSMPALSF ENDS 
IF TLLPARMEFILES THEN Zewe ARRAY/RECORD wae 
BEGIN 


YF ARRAYVAR THEN BENG sols 87) ELSE 
REGIN GFNC™ARRAY%s653)3 ARRAYVAREaTRUE ENDS 
GENIN OV" >LEVEL 1 ONOSNAMs 5S )3 GENCE, 197)3 
FIRSTNIMtaTRUFS 
nO BFGIN ee 
IF FIRSTOIM THEN FrRSTDIMESFALSE FLSE GENC "515793 
GENINTETYPFTABAFTYE 193 
IF NOT PARAM THEN 
BEGIN GENCE 19 7)2 GENINTCTYPETARSCTYP)) FND3 
TYP@RTF T1,FORMsAR@AYS THEN TI.ARRTYPE ELSF REALTYPE3 
TLteTYPETARIETYPIS 
FNO UNTEL Tl. -STRUCTaNS 
GENCM9% 15793 
ENN ELSF 
BEGIN. Neue FILE wee 
aa REALVAR mR ARRAYVAR THEN 
BEGIN GENEMS% sty 793 REALVARE#ARRAYVARS@FALSE END) 
TF T1. TFORMETFYTFT] E AND NOT PARAM THFN 
REGIN eee 
TF NUMPTLES>MAYFILeS THEN FRROR(97) 
FLSE NUMFILESt sNUMFILES#]3 
FYLETARCNUMFILFS38aNAM3 
FND3 
FEYXTFTLE tm AL SES 
FNAMPSSNAMFTARITL EVE! sNAMI3 
FNLENG TH t= FNAMP, NAMFLENGTH$ FNSTART t= BeFNLENGTHS &% 
TF FNLENGTH LFQ 6 THEN & 
REGIN 
FOR stm STEP 4 UNTIL NUMEXTFILES NO 
IF FNAMESFYTFTL TARE J) THEN EXTFILF&eTRUES 


FNDS | _— 

YF EXTFYILFE ANN NOT PaRAM THEN 

BEGIN 
TF NUMFTIES Gro MAXFILES THEN FRRORCO7) 
ELSE 


NUMFILES t= NUMFTIFS + 13 
FTIETARCNUMFTI FS) t= *NAM = 93 
GENC DEFINE 575293 GENIDC"E LEVEL 1OQQ#NAMS593 
GENC™EY LI, 7S 
GENCFNAMF FNLENGTH™ "ENSTARTIS & 
GENCMESHLO,AIS GENC"SAVE's5,4)3 GENC"F TLE, 55493 
GENCF NAME sFNLENGTHLFENSTART)DS & 
FND FI SE 
REGIN a ee 
GENCMFTLE%s 5 e4)3 AENIDOC"FE Ms LEVEL 1 OO04NAMS5 93 
ENDS | 
TF NOT PARAM THEN 
RFEGIN 
GENE" NTSK",6,393 GENC"SERTAL",7,2)3 


80044000 
80045000 
80046000 
80047000 
80048000 
80049000 
80050000 
80051000 
80082000 
80053000 
80054000 
80055000 
80086000 
80057000 
80058000 
80089000 
80060000 
80061000 
80062000 
80063000 
80064000 
80065000 
80066000 
80067000 
80068000 
80069000 
80070000 
80071000 
80072000 
80073000 
0074000 
80075000 
80076000 
80077000 
80078000 
80079000 
80080000 
80081000 
80082000 
80083000 
80084000 
80085000 
80086000 
80087000 
80088000 
80089000 
80090000 
80091000 
80092000 
80093000 
80094000 
80098000 
80096000 
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80098000 
80099000 
80100000 
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YF FXTFYLE THEN 
RFGYN 
TF ALGOLCNT (ss 13 THEN WRITFALGNLS 
GENC*FOINI", 85393 
GENCMHM 54 798 
GENCFNANE SFNLENGTH»FNSTART) 3 % 
GENCTMM LI D7 IS © GENC™/%5157)3 
Yr ALGOLCNT<9 THEN WRITEALGOLS 


GENCHHM Sr ys GENCUSERs 75193 GENCTMM, 1 753 
ENN ELSF 
BEGIN | ae 

GENCHEAN SHG eh d3s = GENC™3009% 24,493 
ENN 


GEN¢" C1." 232503. 
RECSIZFamtF Tt. FORMMTEXTFILE THEN 19 FLSE 
YF TYPFTARICTLe FYILETYPES.STRUCT20 THEN 1 ELSE 
TYPFTAB ATi FILETYPE J@TYPETAB2CTS ,FYLETYPE 1413 
GENINTOCRFCSYZE I$ . GENCY sole 7)3 
TF RECST7F24 OR RECSIZE210 THEN GFNINTC {S09 
ELSE GENINTCRECSTZE 33 
TF aLGOLCNT LSS 10 THEN WRYITEALGOL3 
GENC™ SAVE" 26 2395 GENC™30%s25693 
GENC™IS% sr 693 
FND ELSE GENOME 4 793 
GENC™ARRAY" 565395 
GENCTEMS¢ , 79 
TF TYPETABIITI.LFTIETVPE2.STRUCTSO THEN 
RFEGIN 
IF PARAM THEN CENCHOMs 157) ELSE GENC"010% 35593 
END FI SE 
REGIN 
GENTNT¢TYPFTARAFTI: *FILETYPEI)3 
tf NOY PARAM THEN 
BEGIN GENC"8%,1,.79: GENINTCTYPETABRCTIeFILETYPE]) ENDS 
FNOD?3 
GENC™I3" 525693 . 
GENCTINTFGFR" B51 33 GENIOC*I*,LEVELLOOO4+NAM,5)3 
GENC™S 515793 
ENN) 
—FNDS 
FNN OF LOOP; 
tr REAL VAR AR ARRAYVAR THEN GENC"S ele 7 93 
END nF MECLAREVARSS 


GENIDE*V"sLEVEL 1L0004NAMS5 93 


PROCFNURE PARAMFTERL 7ST3 

BFGIN 
INTEGER FIRSTPARAMSsCURKIND. TP4ePXeTeT3 
RONLEAN FYRST) 


NFFINE NEWP AR AM# 
AFGIN 
IF NUMPARAMS2>MAYPARAMS THEN 
BFaIN FRRORC7093 NUMPARAMSt =MAYPARAMS#10 ENOS 
_ NUMPARAMStmNUMPARAMS412 
FNM OF NEWPARAM#3 


80101000 
80102000 
80103000 
80104000 
80108000 
80106000 
80107000 
80108000 
80109000 
80110000 
80111000 
80112000 
80113000 
80114000 
Bol1Sanq0 
80116000 
80117000 
80118000 
80119000 
80120000 
80121000 
80122000 
80123000 
80124000 
80125000 
80126000 
80127000 
80128000 
80129000 
80130000 
80131000 
80132000 
80133000 
80134000 
80135000 
80136000 
80137000 
80136000 
ao0t390N00 
80140000 
80141000 
80142000 
80143000 
80144000 
80145000 
80146000 
80147000 
80148000 
80149000 
80150000 
80151000 
80152000 
80153000 
80154000 
80158000 
80156000 
80157000 
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NEWPARAMS FIRSTPARAME=NUMBARAMSS 
TF CURSYSLPAR THEN 
RFGTN 
NO BEGIN 
INSYMBOL3 
IF CURSY=VARSY OR CURSVYeFUNCSY OR CURSY=@PROCSY THEN 
BEGIN 
CURKINOISTF CURSYsVARSY THEN VAR ELSE 
TF CURSY#FUNCSY THEN FUNC FLSE PROG3 
TNSYMROL 3 
ENN ELSE CURKINDE =CONST3 
FIRSTtsTRUFS Py teNIIMPARAMS413 
DO BEGIN 
TF FIRST THEN FIRSTItaFALSE FLSE TNSYMBOL3 
TF CURSY@TOFNTIFTFR THEN 
AFGIN 
NEWNAMF CCURNAMF4 »CiiRNAME2sCURLEVEL 413 
PX EmTHISTNNEXS PX "PARAMKTND PeCURKINDS 
PY, PARAMLFVFLI@CURL FVEL413 
NEWPARAMS PARAMTARPNUMPARAMS 9! =PX3 
FND FL SE ERROROOD: 
INSYMROL3 
ENN UNTYL CURSYSCOMMAS 
IF CURSY=®CALON THEN 
BEGIN a 
TF CURKINOSPROC THEN FRROR(90)3 
TNSYMROL 3 se: 
TF CURSYSINENTIFIFR THEN 
REGIN | 
SEARCHS. 
1F FOUND THEN 
BEGIN | 
TF THYSTN.TOC! ASeaTYPES THEN 
REGIN 
T3nsTHISIN. TYPES 
FOR TeaP{ STEP 1 UNTIL NUMPARAMS 00 
PARAMTARCY].PARAMTYPE1 a7 3} 
IF CURKTNNacONeT OR CURKINDsVAR THEN 
BEGTN 
TImTYPFTARICT3I3 
TF T.FORMDFYL ES THEN 
FOR TtwPi eTEP 1 UNTIL NUMPARAMS DO 
PARAMTARCT 9. PARAMFYLEI 343 


tr T. STRUCTO A AND CURKIND®CONST THEN FRRORC94)3 


ENN FISF TF T.eTRUCT>O THEN FRROR(38)3 
FND FLSF RFGIN ERPROR(7)3 T3ts0 FND3 
_ENN ELSE AFGIN FRRARCI1)3 T3280 ENNS 

FNO FLSE BFGTN ERROAR6 ODS T32s0 ENDS 

TNSYMROLS 
ENN ELSE. 
BEGIN 

TF CURKINDZPROC THEN FRRORCT)3 
T38s0} 
ENDS | ae 
TI.INCLASS#eCURKIND$ T3eFORMAL Say3 
FOR Yispi STFP 1 UNTIL NUMPARAMS 00 
NAMF TAR IE CURLFVFL#! sPAPAMTABLT )4PARAMNAME J f=733 


80158000 
80159000 
80160000 
80161000 
80162000 
80163000 
80164000 
80165000 
80166000 
80167000 
80168000 
80169000 
80170000 
B0171000 
80172000 
80173000 
80174000 
80175000 
80176000 
80177000 
80178000 
80179000 
80180000 
80181000 
80182000 
80183000 
80184000 
80185000 
80186000 
80187000 
80188000 
80189000 
80190000 
80191000 
80192000 
80193000 
80194000 
80195000 
80196000 
80197000 
80198000 
80199000 
80200000 
80201000 
80202000 
80203000 
80204000 
80205000 
80206000 
80207000 
80208000 
80209000 
80210000 
80211000 
80212000 
80213000 
80214000 


PND UNTIL CURSY#SEMICNLONS 

TF CURSYZRPAR THEN | 

REGIN ERRARC46)3 SKTPCREARYS 

TF CURSY@RPAR THEN TNSYMBOL3 
_ FND ELSE TNSYMBNL3 
FNM} fsa ae 
PARAMTARTFIRSTPARAM Jt =NIIMPARAMS@FIRSTPARAMS 
FND MF PARAMETFRLISTS 


a 
wees 


~ 


PROCFNURE BLOCKS 

BFGIN b: be accis 
INTEGER INAEXSCTYPEsNUMFORWARDSs To T3#TXaT3 
RFAL CVAL3 _ 
ALPHA (12023 . 
RONLEAN VALUEPARAMSSFUNS 
LARBFL STARTS 


etl 


INTEGER LABTABTOP, CONSTTABTOPs TYPE TABTOP sPARAMTABTOPs TOPREC» 
FORMERFIRST! ABSFIASTFEILES 


lorms, inc. © 


FORMERFIRST| ARtaFIRSTLARS 
LARTABTOPS@NUMLARSS FrRSTLABI aL ABTABTOP4( 3 
CONSTTABTOP 1=NUMCONSTS? 
TYPETARTOPSsNUMTYPESS 

PARAMTARTOP t=NUMPARAMS3 

TMPRECts_ASTRECS 

FIRSTPILF t2nUMFILeSs(3 


Moe oY 


TOPLEVEL #eCURLEVFEL? 
TF CURL EVEL>1 THEN GENCYBEAING s69 393 


STARTS ~~ 
TF CURSYSLARELSY THEN Zawe LABEL DECLARATION tue 
BRAIN Skee NHENEN RHEE 
GENC™LAREL 565393 
DO BEGIN - 
TNSYMAOL 3 
TF CURSYINTCONST THEN 
REGIN 


GENTDC™L™sCURVAL 9493 
IF CURVAL>9999 THEN FRRORE33)3 
FOR TtePIRSTLAR. STrP. 1 UNTIL NUMLABS 00 
TF | ABTABr?). LARVA! @CURVAL THEN FRRORC31)3 
YF NUML ABS2MAXI ABS THEN BEGIN FRRORC34)3 NUMLABS8s0 ENN 
NUM| ABSt@NUMLARS41¢ 
LARTARENUML ABST2 eC RVAL3 
INSYMANL 3 
FNM ©, SE BFGIN ERROR? 1093 SKIP CCOMMAS ENDS3 
TF CURSYMCOMMA THEN AENCs"5457)3 
END UNTIL CURSYZCOMMA3 
IF CURSY#SEMTCO ON THEN BEGIN FRROR(25)3 SKTPCSEMICOLON) FND3 
GENC" I" C17 )3 
IF SYMKTNDPCURSY IZ INIT PAL THEN INSYMBNQL3 
FNM OF LABE) Arc. ARATIONS 


TF CURSYSCONSTSY THEN eee CONSTANT NECLARATION #ee 
RPGIN Ree AKENNH KEKE NER HEN 


i 


80215000 
80216000 
80217000 
80218000 
80219000 
80220000 
80221000 
80222000 
80223000 
80400000 
80401000 
80402000 
80403000 
80404000 
80405000 
80406000 
80407000 
80408000 
80409000 
80410000 
A0411000 
80412000 
80413000 
80414000 
80415000 
80416000 
80417000 
80418000 
80419000 
80420000 
80421000 
80422000 
80423000 
A0424000 
80425000 
80426000 
80427000 
80428000 
80429000 
80430000 
80431000 
80432000 
80433000 
80434000 
80435000 
80436000 
80437000 
80438000 
80439000 
80440000 
80441000 
80442000 
80443000 
80444000 
80445000 
80446000 
80447000 
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INSYMBN 3 
ON REGIN 


TF CURSYS@INFNTIFTER THEN 


REGIN 


NFWNAMF CCURNAMF Ye CriRNAME2sCURLEVFL)S INDEXt*=THISINDEX) 


INSYMBOL 3 


IF CURSYSFALSY THEN 


TNSYMBOL S$ 
T3tMCTYPFS 


CANSTANTCCVAL sCTYPE 93 
TALINCLASSISCONST} 


TF CVAL.F468A120 NR CVAL>1023 THEN 


BEGIN 


IF NUMCONSTS2MaXCONSTS THEN 
BFGIN PRROR( 35433 NUMCONSTS?20 FND3 
NUMCONSTS #sNUMCONSTS 443 
CONSTTABENUMCONSTSIt®CVALS 
T3, TNEM £2109 34NMCONSTS 3 

END ELSF 73. TNFOeRCVALS 

NAMETARSPCURL EVE! »sINDEXI£@T 33 

END ELSF RFGTN FRRARC36)3 SKIPCSFMICOLON) ENDS 
PND F,| SE RBFGIN ERROR?O)3 SKIPCSEMICOLON) FND3 


TF CURSY*SEMICOLON TUFN BEGIN ERROR(95)3 SKIPCSEMICOLON) END} 


IF SYMKTNOPCURSYIAINITEAL THEN INSYMBQL3 
END UNTHL CURSYSTDENTIETERS 
FNM OF CONSTANT MFCLARATIONS 


TF CURSY®TYPESY THEN 


RFGYN 


INSYMBNI 3 
DO RFGIN ee 
TE CURSYSTNENTIFTFR THEN 


REGIN 


Kaae TYPE DECLARATION wee 
eS CCE LSSCLCOLSSCOLSLSCLCSLALLC EL. 


NEWNAMFCCURNAMF 4 »CHIRNAME2sCURLFEVEL 3 INDEXS@THISINDEX3 


INSYMBNL 3 


TF PURSY*FOLSY THEN 


RBEGTN 


TNSYMADNL 3 


TYPENECL CCTYPEsTY)3 
TALECTYPF3 T3. INPLASSS*TYPES$ 
NAMFTABICCURI PVE) » TNDEX1227 33 
ENN ELSF RFGIN FRRARC36)3 SKIPCSFMICOLON) FND3 
FND £1 SE BFGIN ERROR?9)3 SKIPCSEMICOLON) END3 


TF CURSY#SSFEMICOLON TUFN BEGIN ERROR¢25)3 SKIPCSFMICOLON) END} 


IF SYMK INDICURSY IF INITIAL THEN INSYMBOL 3 
2 ENN UNTPL CURSYSIDENTICTERS 
FNM OF TYPF DECLARATIONS 


TF CURSYSVARSY THEN 


RFE GTN 


VARINDFY!803 


00 REGIN . 
FIRSTVARt@VARTNDF 41 3 


NO BEGIN 


Xwawe VARIABLE DECLARATION we 
Veeck take keke henktkkkheene 


IF CURSY2VARSY AR PURSY sCOMMA THEN INSYMBOL 3 
TF CURSYSIDENTIFIE® THEN 


BEGIN 


tr VARTNDFX>I TST: PNGTH THEN 


80448000 
80449000 
80450000 
80451000 
80452000 
80453000 
80454000 
80455000 
R0456000 
80457000 
80458000 
80459000 
80460000 
80461000 
80462000 
80463000 
80464000 
80465000 
80466000 
80467000 
80468000 
80469000 
80470000 
80471000 
80472000 
80473000 
80474000 
80473000 
80476000 
80477000 
80478000 
80479000 
80480000 
80481000 
80482000 
80483000 
80484000 
80483000 
80486000 
80487000 
80488000 
80489000 
80490000 
80491000 
80492000 
80493000 
80494000 
80495000 
80496000 
80497000 
80498000 
80499000 
80500000 


80501000 


80502000 
80503000 
80504000 
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REGIN FRANR( 3793 VARINDEX!#0 END3 
VARINDFXS sVARTNDEX+13 
NEWNAME (CURNAME 1.CURNAME 2sCURLFVFL)3 
VARLISTCVARTNMEX Sta THISTNDEX3 
INSYMANL 3 
FNM ELSE AFGIN FRRARC9)3 SKIPCCOLON) ENDS 
FND UNTIL CURSYSANMMa3 
Te CuURSYSCOLON THEN REGIN ERROR¢(2693 SKIPCCOLON) END 
TF CURSY=CNINN THEN 
REGIN 
INSYMANL 3 
TYPFDECLECTYPE Ss TX)? 
T3teCTYPFS 73. - TDC) ASStaVARS 
FOR TysFIRSTVAR STeP 1 UNTIL VARINNDEX DO 
NAMETARSPCURL EVE! sVARLISTELIIIaT aS 
FND €;} SE RFGIN ERROR? 2693 SKIPCSEMICOLON) ENN3 


1F CURSYZSFMYCOLON TUPN BEGIN ERROR(25)3 SKIP ¢SEMICOLON) ENDS 


aa SYMKTNDPCURSY JA TNIT TAL THEN INSYMBNL 3 

END UNTIL CURSYZIDENTICTERS 

DECLARFVARSCFALSFsVARL IST» 1s VARINDEX sCURLEVEL D3 
FNM OF VARTABLE DECLARATIONS 


TP NUMPNTRS>O THEN 


RFGIN 


CASECURNAMEL3 C23mCLUIRNAME23 


FOR 
REG! 


Tte4 STEP 1 UNTITI NUMPNTRS 00 
N 


CURNAMF{ 2 =PNTRTABITYT IS CURNAME2THPNTRTABOETI3 
SEARCHTABCCURLFVEL 93 

THTSTDt=NAME TABALCURLEVFLs THISINDEYX 3 

If FOUNN AND THISTIN: TOCLASSATYPES THEN 


TYPETARILCPNTRTAR IPT IIeOOINTTYPEIATHISIN. TYPE ELSE FRROR(62)3 


FNDS 


CURNAME(2aC1$ CURNAMF29SC23 NUMPNTRSts03 


FNS 


80505000 
80506000 
80507000 
80508000 
80509000 
80510000 
80511000 
80512000 
80513000 
80514000 
80515000 
80516000 
80517000 
80518000 
80519000 
80520000 
80521000 
80522000 
80523000 
80524000 
80525000 
80526000 
80527000 
80528000 
80529000 
80530000 
80531000 
80532000 
80533000 
80534000 
80535000 
80536000 
80537000 
80838000 
80539000 
80840000 


WHILE CURSY@FUNCSY AR CURSV@PROCSY DO %exe PROC/FUNC DECLARATION **#90541000 
Laetkaena tbat kate eee kek kenw eee AOSAD000 


BFaIN 


FUNT@CURSyaFUNCSY3 IN&yMBOL3 
IF CURSYSINFNTTFIFR THEN 
BEGIN 


SFARCHTABCCURLFVFL Y3 
THISTNUSNAMFT ABSF CUR EVEL» THISINDEXY3 
TF FOUND AND THISTDetMCLASS2PROC THEN 
REGIN 
INDE XP RTHISTNDE YS | 
YF THISTN.FORWARDNeFat THEN 
BEGIN 
NAME TAB 30 THY S] EVeL»s THISINDEX). ,FORWARDDEF t= 03 
NUMFARWARDS tsNUMPORWARDS <4 3 
TECTHTSTN, INC] ASemPROC AND FUNIOR 
CTHISTN. TOC) AS@sFUNC AND NOT FIN) THEN FRRORC43)3 


TNSYMBNI 3 
END ELSE AFGIN PRRARC2)3 SKIPCSEMICOLON) ENNS 
FND FISE 
REGIN 


NEWNAMF (CURNAMFY sCriRNAME2sCURLEVFL)S INDEXt@THISINDEX? 


80543000 
80544000 
80545000 
805446000 
80347000 
80548000 
80549000 
80550000 
80551000 
80532000 
80553000 
80554000 
80555000 
80556000 
80567000 
80568000 
80369000 
80570000 
80571000 


i 
| 
t 


i : i : F 
F i i . 4 5 . : : E : 


ised boa ithes, base peter Re 


” © 


_—-+> 


T32H03 TIL YNEMt=NiiMPARAMS $13 
13. TOCLASStaIF | FUN THEN FUNC ELSE PROC3 
NAME TAR SICURLFVFEL » INDEX 22733 
TNSYMBNL3 PARAMETERLIST3 
IF cURSY=#tnON THEN 
REGYN 
Te NOT FUN THEN eRRORC4B)3 
TNSYMBOL 3 
TF CURSYSTNENTIFYFR THEN 
RBFGIN 
SEARCH}... 
IF FOUNN THEN 
BEGIN 
YF THTISIN. INPLASSSTYPES THEN 
RFGIN 
TIESTYPFTABICTHISID, TYPE Y3 
TE TeFORMSALFA OR T.FORM=POINTERS THEN 
RFGIN : 
NAMFTAB3PCURLEVELsINDEXI. TYPES 3 THISINe TYPES 
END ELSF EaROR(38)3 
FNM FLSF FRRARCT)3 
ENN FLSF ERRORS {3 
FAD ELSF_FRRARCOY3 
INSYMBOL 3 
ENA ELSE TF FUN THEN 
BEGIN FRROR(2693 eKIPCSEMICOLON) FND) 
FNDS 
ENN ELSF BFGIN FRRORCOSS SKIPCSEMYCOLON) ENDS 
IF CURSY#SFMTCOLON. THEN BEGIN FRROR( 2833 SKIP CSFMICOLON) END 
IF FUN THEN GENCMFUNCTNMs 7a 2) ELSE 
GENC*PRACENUYs Ast )3 GENTDE™V"» 1 000xCURLEVEL*INNDEXs5)3 
TESNAMETARSECURLEVE! » TNNEX] 6 INFO TXI=STH#PARAMTABCTI3 
IF TX>T THEN 
BEGIN 
GENC™ENS 1 e793 ~ 
FOR TemTei STEP 1 UNTTL TX DO 
REGIN GENTOCTV's 1N00~CCURLEVEL41 )+PARAMTABLI). SPARAMNAME ,5)3 
IF ROOLFANCPARAMTAGII Je PARAMFILE) THEN 
BEGIN ; 
GENC™, 249793 . ‘ 
GENIN CME@, 1O0NxCPURLEVEL +1) #PARAMTABEIY ,PARAMNAME 5593 
GENE, "ole PS. 
GENIMNCMT",100MxCFURLEVEL +1 )+PARAMTABE I Je PARAMNAME » 593 
ENDS 
IF + LSS TY THEN GeNC%s "045793 
FNNA3 
GENC IS, 9,693 
VALUFPARAMS tar Al SF3 
FOR Ttelst STFP 1 UNTIL TX DO 
TF PARAMTARFT). TPARAMKINDSCONST THEN 
REGIN : 
IF NOT VALUPPARAMS THEN 
REGIN GENC” VALUFM 9 423)3 
VALUEPARAMSI a TRUES 
ENN ELSE GENC™s%51.7)3 
GENTOC™V™, 1 H00x¢CURLEVEL 41 )+PARAMTABLCI).PARAMNAME 95) 3 
ENDS 


80572000 


80573000. 


80574000 
80575000 
80576000 
80577000 
80578000 
80879000 
80580000 
80581000 
80582000 
80583000 
80584000 
80585000 
80886000 
80587000 
80588000 
80389000 
80890000 
80391000 
80592000 
80593000 
80594000 
80595000 
80596000 
80597000 
80598000 
80599000 
80600000 
80601000 
80602000 
80603000 
80604000 
80605000 
80606000 
80607000 
80608000 
80609000 
80610000 
80611000 
80612000 
80613000 
80614000 
80615000 
80616000 
80617000 
80618000 
80619000 
80620000 
80621000 
80622000 
80623000 
80624000 
80625000 
80626000 
80627000 
80628000 
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TF VAI UEPARAMS THEN QENCTS 515795 
NECLAREVARSC( TRUE» PARAMTABs To1sTXsCURLEVEL #41 3 
ENN ELSF GENC'S$%.95793 


INSYMAN 3S | 
IF CURNAME(®"7FQRWAR™ AND CURNAME2a"D" THEN 


BE 


EN 
BE 


EN 


IF CURSY*SEMTCMI ON THEN REGIN FRRORC25)3 SKIPCSFMICOLON) ENDS 


GIN | 
NAMETAB3P 


CURLFVFL s INDEX) eFORWARODEF 8013 


NUMFNRWARNS t=NUMEMRWARDS 413 
GENC™FORWARN", 85193 


INSYMROL 3 
N ELSF. 
GIN 
CURLEVEL? 


=CURLEVF| #13 


TF CURLEVFL2LASTRFC THEN ERROR(55)3 


RALOCK TAB 


CURLFVFL 18 aitiMBLOCKS# SNUMBLOCKS413 


THSCURFUNCS CURFIINCesTF FUN THEN INDEX ELSE @13 


RLOCK! 


Xess COMPILE PROCEDURE BODY ##« 


REPLACE POTNTERONAMETARIECURLEVEL»s#3) BY 06 


CURLEVEL! 
TOPLFEVEL! 
n3 


rie felon OO ie FOR MAXYNAMES#42 WORNS3 
mCURLEVF] 1: CURFUNCtsT3 
aCURLEVFI 3 


GENCMS" 1,753 
IF SYMKINDECURSYIZTNITTAL THEN INSYMANL 3 
FANN OF PROCEDURE MNFCLARATIAN3 


TF NUMFORWARDS>O THEN FRROMC44YS 
GENC INTEGER s 85193 


FOR Tt 


21 STFP 4 


UNTIL MAXTeMPS D0 


REGIN GENINE*T#, 1,293 
TF T<MAXTEMPS THEN GENC 59457) ELSE GENC™S "540793 


FNIYS 


TF CURSYZRFGINSY THEN 

REFGIN FRRORCI993 

WHILE SYMK TNO FCURSY IM INITIAL nl) 
REGIN INSYMANLS SKxIPrSEMICOLON) ENDS 


FNM} 


TFCCURSYZTYPESYINRECANSTSYSCURSY AND CURSYSPROCSY)THEN 


G0 TO STARTS 


YF CURLFVEL=1 THEN 


RFGIN 


GENCTINIT C5 S$, 393 


TF INPUTNFCL THEN GENE "TRIE %s404) ELSE GENC"FALSE%5553)5 


GENCE. 35693 


END) 


FOR ltaFIRSTFILE STEP 1 UNTIL NUMFYILES 00 
IF FIL eraary) LSS M THEN 


REGIN 


GENC™CHFIL O% 65293 
GENIDE MF, 1000xCURI EVEL@FILETABLI mt, »5)3 
GENCE" 9S% pa 693 


FND 
FI SE 
RFGTN 


80629000 
80630000 
80631000 
80632000 
80633000 
80634000 
80635000 
80636000 
80637000 
80638000 
80639000 
80640000 
80641000 
80642000 
80643000 
80644000 
80645000 
80646000 
BO647000 
80648000 
80649000 
80650000 
80651000 
80652000 
80653000 
80654000 
80655000 
80656000 
80657000 
80658000 
80459000 
80660000 
80661000 
80662000 
80663000 
80664000 
80665000 
80666000 
80667000 
80668000 
80669000 
80670000 
80671000 
80672000 
80673000 
80674000 
80675000 
80676000 
80677000 
80678000 
804679000 
80680000 
80681000 
80682000 
80683000 
80684000 
80685000 
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GENINE"I", LOOOxXCURLEVFL +E TLETABLT 15593 80686000 

— GENO I, 9S 793) GENCTRIFSSZE%s 79193 GENC™S*RO3%,S, 393 80687000 
FNN3 80688000 
NUMFILE Stor ryRSTFILF@13 80689000 

. 80690000 
COMPSTAT3 Rete COMPTLE STATEMENT PART «4% 80691000 

: 80692000 

FOR IteLASTREC STFP 4 UNTIL TOPREC#1 00 80693000 
REPLACF POINTERCNAMFTAR(CY.#3) BY O FOR MAXYNAMES#1 WORNS3S 80694000 

FOR IteFIRSTLAS STEP 1 UNTL NUMLABS DO 80698000 

TF LABTABETY+LARDFFaeO THEN FRRORC93)3 80696000 
LASTRECI@TOPRECS _ 804697000 
NUML ABS? sL ARTARTOPS 80698000 
FIRSTLAB!SFEARMPRETRSTL ARS 80699000 
NUMCONSTStstONSTTARTOPS 80700000 
NUMTYPESteTYPETARTOPS — 80701000 
NUMPARAMS tsPARAMTARTOP$ 80702000 

YF CURLFVEL>1 THEN GENCVENN "+ 405)3 80703000 

END ne BLOCK 80704000 
LREAAAALAVLALA LALA LLL LAK Y LHL HEL HLL EL ELE LAL ELL YK LALA LALLA ALA LAL LLEUXHXXVXEX 90001000 
% %90002000 
% %90003000 
z . : : %90004000 
4 PART 9t Tue MAIN PROGRAM, 290008000 
+ 4 o_o nasemawne %90006000 
4 %90007000 
¥ %90008000 
% %¥90009000 
PXLKKLAL ARAL LALLA VLALAL KALLE LA LEELA ALLL LLL VLA L ALLL LL HLA ALAALHXBXXX90010000 
90011000 

90012000 

INTEGFR PROGNAMFLENGTHS 90013000 
ALPHA PROGNAMEsALGALNAMFS 90014000 
90015000 

ALGOLNAME ta"PASCOOOMBENTIFRETIMFCGIMOD 1096172512693 90016000 
AL GNI NAMET@ALGAI NAME RENTIERCTIMECHIDIV 79011282633 90017000 
AL GOLNAMES sALGN NAME EFENTIERC TIME CA )MOD 99£52851433 90018000 
USERSeTIMEC@493 90019000 
FILL PASCALGOL WITH ALGALNAMEstiSERS 90020000 
BEGIN | 7 90021000 
FUE PASCRUN DTSK SFRTAI "PASCRUNW/"DISK™ (2510215093 90022000 
ARRAY RUFFOIO IS 90023000 
LABFL FOF3 90024000 

4 ; 7 90025000 
WHYLE TRUE AN 90026000 
RFGIN ; os 90027000 
REANCPASCRUNSOSAUF FHT) CeNFT3 90028000 

— WRITECPASCALGOLs10sBuEr i e193 90029000 
FN 90030000 
FOFa. 90031000 
END nF “TRANSFER OF RUN TIME SYeTEMS 90032000 
CARDLENGTHts723 90033000 
INITYALTZES NEWCARDS 90034000 
LISTOPTYONS sCHFECKOPTION@ eTRUES 90035000 
Cre" 3 INSYMBNLY 90036000 
IF CURSY2PROGRAMSY THEN 90037000 
BEGIN 90038000 
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INSYMBOL$ 
IF CURSYMINENTIFIER THEN 
BEGIN 
PROGNAME PeRCURNAMF(.° 352361: PROGNAMELENGTH?2MINC 6sCURLENGTH) 3 
tNSYMBNL 
IF CURSY=LPAR THFN 
RFGIN 
NO BEGIN | 
INSYMANM 3 . 
IF CURSY=INENTYFIER THen 
BEGIN ie 
TP CURNAME La *SOYINPUT® THEN INPUTDECL?aTRUE ELSE 
TF CURNAME Se*40UTPUT® THEN OUTPUTDECLS=TRUE FLSE 
REGIN 
IF CURLENGTH>6 THEN FRRORC77)3 
NUMEXTEYTLFStaNiMEXTFILES*! 3 
Tp NUMEXTETLES<MAXPXTFILES THEN | 
EyTFILFTARCNUMPyTFeLES) 8 aCURNAME 1 FLSE 
“YF NUMEYXTFPLESaMAXeXTPILESs1 THEN FRROR(73)3 
END3 
ENN ELSF ERROR(O)3 
INSYMBM 3 
PND UNTIL CURSYZCOMMAS 
TF CURSYSRPAR THEN BEGIN FRRORC46)) SKTPCSEMICOLON) ENDS 
Te CURSYSRPAR THEN TNSYMAOLS 


TF CURSYSSEMTCOLON THEN AFGIN ERROR¢€25)3 SKIPCSEMICOLON) END$ 


ENA ELSE BFGIN FRROR(5RY skKIPCSEMICOLON) FND3 
ENN FLSE BEGIN ERRNR(9)3 SKIE¢SEMICOLON) END3 


FND FLSF BEGIN FRRNRC75)3 SKIPeSEMICOLON) ENDS 
INSYMANLS : 

CURLFVEL! 343 

LASTREC!SMAXTAR] ES41 3 

VHVLEL LLY LHL HALL LLL Y LALLA K LG LLL LLEVA LL AAA LLLLLK LL UL ULLUVAKYXLYXXIOO71000 
%90072000 
290073000 
%90074000 
LLLALLAL A VALE LVL ELL LLL ALLA L YY AAG AL VEL VLVLALELELYELALELLLLALLAYLALAAAALAYKLALXIOO7SOOO 
TF CURSYZNNT THEN 
BFGYN 


ALOCKS % COMPILE USER PROGRAM, 


FRRORC76)3 
MO BLOCK UNTIL CURSY=DNT3 


ENDS 

TF FALSE THEN 

RFGIN : 
FNOQFINPUT! ERROR(AR793 CHAPCNTtS913 


WRITECL INES s TERMMERS 9} 


ENDS 

fF LYSTOPTTON AND CHARCNT20 THeN PRINTLINES 
TF ERRYINX>0 THEN PRINTFRRORGS 
WRITPCELTNESEDBL1)3 

WRITFCLTNESEMBLI)3 

IF NUMERRSef THEN 

RFGIN 


ARRAY ZIPARRAYFO!I9)» 2rOtnT? 
POINTER ZIPPNT} 


MFEYNE ZEPTEXTCTFYTsL Iz 


90039000 
90040000 
90041000 
90042000 
90043000 
90044000 
90045000 
90046000 
90047000 
90048000 
90049000 
90050000 
90051000 
90052000 
90053000 
90054000 
90055000 
90056000 
90057000 
90058000 
90059000 
90060000 
90061000 
90062000 
90063000 
90064000 
90065000 
90066000 
90067000 
90068000 
90069000 
90070000 


90076000 
90077000 
90078000 
90079000 
90080000 
90081000 
90082000 
90083000 
90084000 
90085000 
90086000 
90087000 
90088000 
90089000 
90090000 
90091000 
90092000 
90093000 
90094000 
90095000 
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RFEGIN - 
ZLOVIATEXTS. cao te ; . 
REPLACE ZIPPNTI7TPPNT ay POINTERC7£*394+C8="L) FOR L3 

FND#3 


PRACEDIRE ZTPNUMEN)3 % TRANSFERS A NUMAFR TO THE ZYP BUFFER: 
VALUE NS INTEGFR NG _ 

TF NSO THEN ZIPTFYXTENS19 ELSE 

RFGIN ZIPNUMEN NTv 1093 ZIPTEXTCENTIERCN MOD 109019 ENDS 


WRITEALGOLS. 

WRITECPASCA) GOL sLASTL INF): 
LOCKCPASCALGOL s SAVES 
ZYPPNTISPOINTER(ZTPARRAVE #493 
REPLACE ZIPPNT BY ™ * FAR 50 WORDS 
WRITECLINES,NOFRRORS)3 
ZYPTEXTOMCE "5393 JIPTEXTC"COMPILF"s7)3 

FIPTEXTEM ",1 95 7TPTEXT¢CPROGNAMF » PROGNAMELENGTH)3 
ZIPTEXTOM/% 5193 JIPTEXTCUSERS7)3 

ZIPTEXTOC™ YALGML™s7)3 PIPTEXTE™ "st93 

TF SAVFFACTAR>O THEN ZTPTFYTCPLIBRARY"s7 93 

TF SAVFFACTOREO THEN ZTPTEVTOMSYNTAX" 2693 


7IPTEXTC™S "193 


ZYIPTEXTO™XAl GOL 2693 VIPTEXTE™ FILE%,8)3 
ZIPTEXTC™ CARD e's 693 7IPTEXTCALGOLNAMEs 793 
PYPTEXTE™/™s19% 7IPTEXTCUSERs7)3 
ZYPTEXTC” SERIAL",793 PIPTEXTO™S ot )5 

TE SAVFFACTAR>O THEN 

RFGTN 


TIPTEXTEMSAVES"s5)3 FIPRUMCSAVEPACTOR)3 
ZYPTEXTE™S 193 

FNM} ia Ae 

ZTYPTEXTCMENM. 5493 

77P WITH ZIPARRAYEF#}3 


FND NF COMPILER ZIP FISF 
BFGIN 


INTEGER Y3 Pare 
SWTTCH FORMAT FRRORMFSS? ts 
qn eee COMPILER FRROR *** CONTACT THE COMPUTER CENTRE. 9,5 


a) 
(* 4 YNENTYIFTIFR NOT DEEINED ey 
C* 2 IAENTTETER ALREADY DEFINEN."),» 
¢" 3 WRANG NUMRER Ne PARAMETERS,"), 
e* 4 SYNTAX FRRORI), 
ec’ § VARYTARLF NOT ACCFeSIBLE CHARDWARF RESTRICTIONS.) 
(" 6 STRINGS MAY NOT Re CONTINUED FROM ONE CARD TO ANOTHER." )» 
C* 7 A TYPE FYPECTEN. 5 
¢" R VARTARLE FYPFCTED’"), 
(* 9 [MENTIFTFR FXPECTEN."), 
€" 10 INTEGER CONSTANT eXPECTED."), 
(" 414 CONSTANT sla OTHER TYPE THAN EXPECTED." )» 
(* 12 VARTIARLF OF TIT EGaL TYPE.")» 
(* 43) UNRECAGNIZABLE STATEMENT ©” Js 
(" 14 CONSTANT TAN RIG mR Tao SMALLo™)» 
c* 18 UNREFINED LARFI uM 9» 
«" 16 -ForR® AND CASF@STATFMENTS NESTED THO DEFP.")» 
(* 17 EXPRESSION YS AF wRONG TYPE."), 
18 


HOMO M FYPEOTED Ms 


90096000 
90097000 
90098000 
90099000 
90100000 
90101000 
90102000 
90103000 
90104000 
90105000 
90106000 
90107000 
90108000 
90109000 
90110000 
90111000 
90112000 
90113000 
90114000 


— 90115000 


90116000 
90117000 
90118000 
90119000 
90120000 
90121000 
90122000 
90123000 
90124000 
90125000 
90126000 
90127000 
90128000 
90129000 
90130000 
91001000 
91002000 
91003000 
91004000 
91005000 
91006000 
91007000 
91008000 
91009000 
91010000 
91011000 
91012000 
91013000 
91014000 
91015000 
91016000 
91017000 
91018000 
91019000 
91020000 
91021000 
91022000 


He 


eo © @ 08 8 ®@ 
~ 
32 


‘3b orms, tic. £ 


busi 


Moure 


~ 
3 


ro 
a 
~ 
3 


f 
ny 
3 32 


@ 
~ 
3 


50 
51 
52 
53 
54 
§5 
54 
57 
5A 
59 


neONOneM FYPECTEDI)» 
MHMELSENAY WITHOUT CORRESPONDING """THENM HH, Hy, 


~TLLPGAL TFRMINATIAN oF STATEMENT." )» 


MHOUNTILYM FYPECTED.") » 
meeTOnNN sen nWNTAnTM EXPFCTED "3s 
vo 9 0 ET NV OF Oe FXPFETEN.")» 

wengwan PYPECTED a)» 

fe reer g teen ey EXPECTED a)» 
mmnTHENT HM EXPECTED.) >» 

1908 08 8 gy tH On ee FXPECTED.")» 

ONLY NUMRERS MAY RE SIGNED." )s 
TQmn MANY CASES. "3 

LAREt USED MORF TUAN ONCE.™), 
CONSTANT FYPECTED: "), 


LAREL NOT YN RANG 0409999.")5 


TOM MANY LABFIS DeCLARED.")>» 

TOM MANY CANSTANTe DECLARFD "9, 

te re nm tr o9 o FXPECTFD. 3s, 

THE LYST 1S TAM LANG.")» 

INVALTN TYPE FAR a FUNCTIONS)» 

"HMBEGING™ FYPECTEN.")s 

TOM MANY TRENTYFIERS DECLARED."), 

ALFA CONSTANS MAY NOT BE LONGER THAN 7 CHARACTERS,."), 
EXPRESSTON [TS NOT OF TYPE BOOLEAN."), 

NOT PROPFR FORWARNA NECLARATION.")s 
UNSATTSFIFD FORWARN DECLARATION." )> 

TOM MANY NTFFFRENT TYPES NECLARED.")>» 

Woven) te t9 FYPECTFD.")s 

wenemrn FYPECTED (op 

A SIMPLE TYPF FXPECTED.")» 

MHMARRAY OF ARRAYane AND "ARRAY OF RFCORD"*" ILLEGAL» 
" AS FILE TYPF. ray? 

MOMPILE OF Fri e@ TS ILLEGAL." )>» 

SET RNUNDRY YS TOm BIG OR TOO SMALL ed» 

TON MANY UNOF CL ARE POINTERS," 9» 

nen tem FYPEOTED'") 5 

FIRST VALUP 18 GREATER THAN SFCONN VALUE. )» 
TOM MANY RECORNS RFCLARED AT ONE TIME."), 
THE RECORD CONTAINS MORE THAN 1023 WORDS.")» 
FTLES NOT ALLOWED IN RECORDS.) 

wc FYPECTED od» 

wewjenn FYPECTED WS 


SWITCH FORMAT FRRORMESS2 te 


«* 


| 
~ 
2 


®eee8 8 @©hUhOOhUC OC~CwM HhUCrhOChUC(<~C FOlhCUhO 
—™ 
2 


60 
64 
6? 
63 
64 
68 
66 
6? 
6A 
69 
79 
iz 


4g 


"MHARRAY MF FTV E*#" NOT ALLOWED." )» 

RANGE OF INNEX IS GREATER THAN 10230"), 
UNSATYSFTYENR POTNTeR DECLARATION« 3,» 

EXPRESSTON tS TNO LONG." Dp 

ILLEGAL OPFRATAR cOR THIS TYPE OF EXPRESSION. ")>» 
INTEGFR FXPRFSSTON EXPECTED eM)» 

A SET FXPFCTEN. sre 

PARAMETER nF THLEAAL TYPE. ), 

PRACENURFS NOT ALI OWED IN THIS CONTEXT.” dp 
ILLEGAL USF OF THeS TYPE OF INENTIFIER.")» 

TAM MANY PARAMFTERS DECLARED TN THE PROGRAMe")>» 
MYMARRAY OF CHARTH! EXPECTED." )» 

WRONG TYPE MF SET EXPRESSION," )y5 


91023000 
91024000 
91025000 
91026000 
91027000 
91028000 
91029000 
91030000 
91031000 
91032000 
91033000 
91034000 
91033000 
91036000 
91037000 
91038000 
91039000 
91040000 
91041000 
91042000 
91043000 
91044000 
91045000 
91046000 
91047000 
91048000 
91049000 
91050000 
91051000 
91052000 
91053000 
91034000 
91055000 
91056000 
91057000 
91058000 
91959000 
91060000 
91061000 
91062000 
91063000 
91064000 
91065000 
91066000 
91067000 
91068000 
91069000 
91070000 
91071000 
91072000 
91073000 
91074000 
91075000 
91076000 
91077000 
91978000 
91079000 


» @ 


> 
ra 


! 
} 


(* 73° TOM MANY FXTFRNAL FILES e")> 91080000 

(* 74 YTLLEGAL THENTTEIEp FOR EXTERNAL FILE." )» 91081000 

Ch 7R MMMPRAGRAMHMH FXPECTED.")s 94082000 

(" 7A we He FYPECTED aT END OF PROGRAM.")» 91083000 

(" 77 EXTERNAL FYLF YNENTIFIER MAY NOT FXCEED 6 CHARACTERS,.")» 91084000 

C" 78 ILLEGAL FILE PARAMETER. "9, 91085000 

¢* 79 ILLEGAL USF OF FILE HANDLING PROCEDURE." )>» 91086000 

(7 BO TEYT@FTLF FXPFCTER.")>» 91087000 

€* RL POTNTFR VARTAR} EF eXPECTED."), 91088000 

¢* 92 ONLY VALUFS OF TYPF REAL» INTEGER OR CHAR MAY BE READ.")s 91089000 

(" 83 VARITARLES TN RFCORMS ILLEGAL IN THIS CONTEXT," )s 91090000 

(" 84 DISPLAY OVERFI NW.) 91091000 

¢* 88 READ AND WRyTF MAV ONLY RE USED ON TEXT*FyLES I"), 91092000 

(" 8&6 REFERENCEN ORJFCT 1S TOO BIG,"), 91093000 

C* BF ENN@OF<INPUT NPSCAVEREDs")» 91094000 

(* BR CHARACTFR ARRAY EvPECTED.")» 91095000 

cH AO NM, wOn FYPECTED 8)» 91096000 

€* 90 PRNCENURES MAY NOF HAVE ANY TYPE.) 91097000 

("91 PARAMETER MF WRONA] KINDe™)> 91098000 

(" 92 ONLY COMPLETE ARRAYS AND RECORDS MAY BE TRANSMITTED.")y 91099000 

(” 93 DFCLARFD LABFI Nor USEDe")s 94100000 

¢" 94 PARAMETERS OF THe TYPE SHOULD NOT BE VALIIF PARAMETERS.")» 91101000 

(7 98 ASSIGNMENT OF STRICTURED YARTABLES NOT IMPLEMENTED)» 91102000 

(" 946 TNPUT/OUTPUT NWT HFCLARED.")» 91103000 

(" 97 TON MANY FYLFS_ IN SE.) 91104000 

C* OR RECORD IMFNTTFTER FXPECTED.")» 91105000 

(7 99 UNRECAGNYZARLF ITEM." )e 91106000 

Cy 91107000 
91108000 

91109000 

WRITECL TNE SsERRORSsNUMFRRS§3 91110000 

FOR IteO STFP 1 UNTIL 89 Dn IF ERREI) THEN 91111000 
WRITECL INES ERRORMESSI YI)? 91112000 

FAR Tte60 STEP 4 UNTYL 419 NO IF ERREII THEN 91113000 
WRITECL INES, ERRORMFSSOP T@6nI93 91114000 

FND MF ERRAR MESSAGES} 91115000 
IF XREFOPTTON THEN 92001000 
BEGIN | 92002000 
RFPLACF POTNTERCXRFELINEC#9) BY * " FOR 17 WORDSS 92003000 
HEANINGS 92004000 
_SORTCPRINTXREF s YREFF ILE +0» VREFMAX» XREFCOMPARE » 3910007600093 92005000 
ENDS | wears i> bee, Decale Gide “dena dy ekg 92006000 
END ne. B5700 PASCAL COMPTLFR... Lb b-P AW WAR ae ba OG bre SW ke aa bh 6 88% 6 eee eS OOOL000 
ENOSEAN, LAST CARD TmMAGe ON SOURCE TAPF FILE 99999999 


LABFL OON0000N0L INE 001790K1CC EX O/RSFILFE LINE@LINE PRINTSCOMMONSL3FILE S=SYMBOL/PASCALSENDS 


7R 


ram 
ae 
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OODODONOOPRNT 00179041 2USER=INFORM §$ EXECUTE COPY /INFORM 


FILE! PASCAL/ INFORM FRI 3/02/79 04:02PM 


PASCAL WAS REVYSED 10/26/78 WITH NEW HERIOT@WATT VERSION, 

WE NOW HAVE THe HERTOT@WATT UNIVERSITY VERSION OF PASCAL, 

Iv 1s TMPLFEMENTFD AS A PRE@PROCESSOR THAT PRODUCES AN XALGOL 
PROGRAM FRMM PASCAL SOURCE AND AUTOMATICALLY CALLS THE XALGOL 
COMPTLER, 


TN USF AS A BATCH COMPILER USF THE FOLLOWING CONTROL DECK, 
PEXECUTE PASCA! /PASCAL 
PDATAOZ9 SMIRCe  CTHIS NAME 1S LIKELY TO CHANGE) 
SOURCF DFCK 
PDATAO29 INPUT. 
TNPUT DATA AFCK IF ANY 
PEND 


TO USF FROM TIMF SHARYNGs FIRST CREATE SEQUENTIAL FILES OF THE 
SOURCE TEXT ANN THE INPUT TRXT IF ANY, MAKe A FILe@ TO HOLD 

THE LISTING, RY MAKING A SFQUFNTTAL FILE CONTAINING A LINE OF 
GARRAGF. (THE FILE MUST BE PRESENT BEFORE THE COMPILER CAN 
STORE TNTO IT") 


THE SMURCF MUST INCLUDE A COMMENT LINE ¢#$S510*) THIS SETS 

THE SAVE FACTO OPTION TO 10 NAYSs AND WILL CAUSE THE OBVECT 
FILE T9 BF SAVen. THE NAME IN THE *PROGRAM" STATEMENT SHOULD 
HAVE FXACTLY 6_LETTERSs AS THE SAVED VERSION WILL RE THAT 

NAME PRECFNFN ay A ZEROs MAKING THE OBJFCT PROGRAM AN EXECUTABLE 
PROGRAM TN YOUR ACCOUNT, 


NFXT 
FOUATF CARNS<FILE>/<€NAME> DISK SERTAL FOR THE SOURCE 
FQUATF LeNEm<FILE>/<NAMFD OrSK SFRYAL FOR THE LISTING 
CLISTING WILL GO TO LYNE PRINTER IF YOU OMIT THIS) 
FXFCUTE ORJECT PASCAL/PASCAL 


THE REFERENCE MANUAL FOR PASCAL IS THE 1974 SPRINGER@VERLAG 
EDNTTTON OF THE _JENSEN @ WIRTH REPORT. THIS IS SUPPLEMENTED 
BY A HFRINT#WATT Ue DOCUMENT. 
CURRFNTLY AVAT: ABLE TS "PASCAL * USER MANUAL AND REPORT" BY JENSEN 
AND WIRTH, SPRINGER STUDY EDITION, AT $5290 PLUS SALES TAX FROM 
SPRINGFREVFRL AG NEW YORKs TNC. 9175 FIFTH AVEos NEW YORKs NY 10010 
(NFW YORK cOLECTS 6% SALES TAX FROM GAL YFORNIANS.,) 


THF FOLLOWING MATERIAL 1S TAKEN FROM THE HERIOTWATT DOCUMENT AY 
DAG LANGMYHRs AUTHOR OF THE IMPLEMENTATION, 


STRINGS MAY BE MF ANY LENGTH. THE TYPE OF A STRING DEPENDS ON [TS 
LENGTH» THUS! | 
_LFNGTH TYPF 


0 ILLEGAL 
4 CHAR 
2a7 ALFA 
GTR 7 ILIV} EGAL»s EXCEPY IN A WRITE STATEMENT 


COPY 


/YNFORM 
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